home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1995 April / Internet Tools.iso / mail / elm / elm2.4.p23c.Z / elm2.4.p23c
Encoding:
Text File  |  1993-09-26  |  74.1 KB  |  2,641 lines
  1. Subject: elm 2.4 Patch #23c
  2. Summary: This is an official patch for elm 2.4 system.  Please apply it.
  3. Priority: HIGH
  4.  
  5. THIS IS PART 3 OF A 5 PART PATCH
  6.  
  7. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your elm source
  8.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  9.     If you don't have the patch program, apply the following by hand,
  10.     or get patch (version 2.0, latest patchlevel).
  11.  
  12.     After patching:
  13.         Apply patches 23d, 23e next
  14.  
  15.     If patch indicates that patchlevel is the wrong version, you may need
  16.     to apply one or more previous patches, or the patch may already
  17.     have been applied.  See the patchlevel.h file to find out what has or
  18.     has not been applied.  In any event, don't continue with the patch.
  19.  
  20.     If you are missing previous patches they can be obtained from our:
  21.     archive server.
  22.  
  23.     Syd Weinstein
  24.     elm@DSI.COM
  25.  
  26.     The patches are available from the dsinc archive server
  27.     Send the following message to archive-server@DSI.COM for
  28.     a list of available patches:
  29.  
  30.     Subject: patch list
  31.     send index elm
  32.  
  33. Index: lib/ndbz.c
  34. Prereq: 5.6
  35. *** ../elm2.4/lib/ndbz.c    Sun Apr 11 23:22:31 1993
  36. --- lib/ndbz.c    Sun Aug 22 22:46:55 1993
  37. ***************
  38. *** 1,7 ****
  39. ! static char rcsid[] = "@(#)$Id: ndbz.c,v 5.6 1993/02/08 00:18:11 syd Exp $";
  40.   
  41.   /*******************************************************************************
  42. !  *  The Elm Mail System  -  $Revision: 5.6 $   $State: Exp $
  43.    *
  44.    *            Copyright (c) 1988-1992 USENET Community Trust
  45.    *            Copyright (c) 1986,1987 Dave Taylor
  46. --- 1,7 ----
  47. ! static char rcsid[] = "@(#)$Id: ndbz.c,v 5.11 1993/08/23 02:46:51 syd Exp $";
  48.   
  49.   /*******************************************************************************
  50. !  *  The Elm Mail System  -  $Revision: 5.11 $   $State: Exp $
  51.    *
  52.    *            Copyright (c) 1988-1992 USENET Community Trust
  53.    *            Copyright (c) 1986,1987 Dave Taylor
  54. ***************
  55. *** 13,18 ****
  56. --- 13,47 ----
  57.    *
  58.    *******************************************************************************
  59.    * $Log: ndbz.c,v $
  60. +  * Revision 5.11  1993/08/23  02:46:51  syd
  61. +  * Test ANSI_C, not __STDC__ (which is not set on e.g. AIX).
  62. +  * From: decwrl!uunet.UU.NET!fin!chip (Chip Salzenberg)
  63. +  *
  64. +  * Revision 5.10  1993/08/03  19:28:39  syd
  65. +  * Elm tries to replace the system toupper() and tolower() on current
  66. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  67. +  * collide during linking with routines in isctype.o.  This patch adds
  68. +  * a Configure test to determine whether replacements are really needed
  69. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  70. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  71. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  72. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  73. +  * were dropped.
  74. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  75. +  *
  76. +  * Revision 5.9  1993/08/03  19:22:01  syd
  77. +  * Add proper casts to free() calls to suppress warnings.
  78. +  * Properly cast return types.
  79. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  80. +  *
  81. +  * Revision 5.8  1993/07/20  02:59:53  syd
  82. +  * Support aliases both on 64 bit and 32 bit machines at the same time.
  83. +  * From: Dan Mosedale <mosedale@genome.stanford.edu>
  84. +  *
  85. +  * Revision 5.7  1993/06/09  23:41:34  syd
  86. +  * Add frees of db structure on failed dbz_open
  87. +  * From: Syd
  88. +  *
  89.    * Revision 5.6  1993/02/08  00:18:11  syd
  90.    * fix taghere to be || instead of | and paren to make
  91.    * it catch duplicates again, as per testing.
  92. ***************
  93. *** 74,80 ****
  94.   */
  95.   
  96.   #include "headers.h"
  97. - #include <ctype.h>
  98.   #include <errno.h>
  99.   #ifndef ANSI_C
  100.   extern int errno;
  101. --- 103,108 ----
  102. ***************
  103. *** 194,200 ****
  104.   #endif
  105.   
  106.   static int getconf();
  107. ! static long getno();
  108.   static int putconf();
  109.   static void mybytemap();
  110.   static of_t bytemap();
  111. --- 222,228 ----
  112.   #endif
  113.   
  114.   static int getconf();
  115. ! static int32 getno();
  116.   static int putconf();
  117.   static void mybytemap();
  118.   static of_t bytemap();
  119. ***************
  120. *** 246,252 ****
  121.   #define    MAPOUT(o)    ((db->dbz_bytesame) ? (o) : bytemap((o), db->dbz_mybmap, db->dbz_conf.bytemap))
  122.   
  123.   /* externals used */
  124. ! #ifndef __STDC__ /* avoid problemswith systems that declare atol as a macro */
  125.   extern long atol();
  126.   #endif
  127.   
  128. --- 274,280 ----
  129.   #define    MAPOUT(o)    ((db->dbz_bytesame) ? (o) : bytemap((o), db->dbz_mybmap, db->dbz_conf.bytemap))
  130.   
  131.   /* externals used */
  132. ! #if !ANSI_C  /* avoid problems with systems that declare atol as a macro */
  133.   extern long atol();
  134.   #endif
  135.   
  136. ***************
  137. *** 282,293 ****
  138.   
  139.       if (size != 0 && size < 2) {
  140.           dprint(5, (debugfile, "dbz_fresh: preposterous size (%ld)\n", size));
  141. !         return(NULL);
  142.       }
  143.   
  144.       /* get default configuration */
  145.       if (getconf((FILE *)NULL, (FILE *)NULL, &c) < 0)
  146. !         return(NULL);    /* "can't happen" */
  147.   
  148.       /* and mess with it as specified */
  149.       if (size != 0)
  150. --- 310,321 ----
  151.   
  152.       if (size != 0 && size < 2) {
  153.           dprint(5, (debugfile, "dbz_fresh: preposterous size (%ld)\n", size));
  154. !         return (DBZ *)NULL;
  155.       }
  156.   
  157.       /* get default configuration */
  158.       if (getconf((FILE *)NULL, (FILE *)NULL, &c) < 0)
  159. !         return (DBZ *)NULL; /* "can't happen" */
  160.   
  161.       /* and mess with it as specified */
  162.       if (size != 0)
  163. ***************
  164. *** 316,346 ****
  165.       /* write it out */
  166.       fn = enstring(name, dir);
  167.       if (fn == NULL)
  168. !         return(NULL);
  169.       f = fopen(fn, "w");
  170. !     free(fn);
  171.       if (f == NULL) {
  172.           dprint(5, (debugfile, "dbz_fresh: unable to write config\n"));
  173. !         return(NULL);
  174.       }
  175.       if (putconf(f, &c) < 0) {
  176.           (void) fclose(f);
  177. !         return(NULL);
  178.       }
  179.       if (fclose(f) == EOF) {
  180.           dprint(5, (debugfile, "dbz_fresh: fclose failure\n"));
  181. !         return(NULL);
  182.       }
  183.   
  184.       /* create/truncate .pag */
  185.       fn = enstring(name, pag);
  186.       if (fn == NULL)
  187. !         return(NULL);
  188.       f = fopen(fn, "w");
  189. !     free(fn);
  190.       if (f == NULL) {
  191.           dprint(5, (debugfile, "dbz_fresh: unable to create/truncate .pag file\n"));
  192. !         return(NULL);
  193.       } else
  194.           (void) fclose(f);
  195.   
  196. --- 344,374 ----
  197.       /* write it out */
  198.       fn = enstring(name, dir);
  199.       if (fn == NULL)
  200. !         return (DBZ *)NULL;
  201.       f = fopen(fn, "w");
  202. !     free((malloc_t)fn);
  203.       if (f == NULL) {
  204.           dprint(5, (debugfile, "dbz_fresh: unable to write config\n"));
  205. !         return (DBZ *)NULL;
  206.       }
  207.       if (putconf(f, &c) < 0) {
  208.           (void) fclose(f);
  209. !         return (DBZ *)NULL;
  210.       }
  211.       if (fclose(f) == EOF) {
  212.           dprint(5, (debugfile, "dbz_fresh: fclose failure\n"));
  213. !         return (DBZ *)NULL;
  214.       }
  215.   
  216.       /* create/truncate .pag */
  217.       fn = enstring(name, pag);
  218.       if (fn == NULL)
  219. !         return (DBZ *)NULL;
  220.       f = fopen(fn, "w");
  221. !     free((malloc_t)fn);
  222.       if (f == NULL) {
  223.           dprint(5, (debugfile, "dbz_fresh: unable to create/truncate .pag file\n"));
  224. !         return (DBZ *)NULL;
  225.       } else
  226.           (void) fclose(f);
  227.   
  228. ***************
  229. *** 426,443 ****
  230.       /* pick up the old configuration */
  231.       fn = enstring(oldname, dir);
  232.       if (fn == NULL)
  233. !         return(NULL);
  234.       f = fopen(fn, "r");
  235. !     free(fn);
  236.       if (f == NULL) {
  237.           dprint(5, (debugfile, "dbz_again: cannot open old .dir file\n"));
  238. !         return(NULL);
  239.       }
  240.       i = getconf(f, (FILE *)NULL, &c);
  241.       (void) fclose(f);
  242.       if (i < 0) {
  243.           dprint(5, (debugfile, "dbz_again: getconf failed\n"));
  244. !         return(NULL);
  245.       }
  246.   
  247.       /* tinker with it */
  248. --- 454,471 ----
  249.       /* pick up the old configuration */
  250.       fn = enstring(oldname, dir);
  251.       if (fn == NULL)
  252. !         return (DBZ *)NULL;
  253.       f = fopen(fn, "r");
  254. !     free((malloc_t)fn);
  255.       if (f == NULL) {
  256.           dprint(5, (debugfile, "dbz_again: cannot open old .dir file\n"));
  257. !         return (DBZ *)NULL;
  258.       }
  259.       i = getconf(f, (FILE *)NULL, &c);
  260.       (void) fclose(f);
  261.       if (i < 0) {
  262.           dprint(5, (debugfile, "dbz_again: getconf failed\n"));
  263. !         return (DBZ *)NULL;
  264.       }
  265.   
  266.       /* tinker with it */
  267. ***************
  268. *** 463,491 ****
  269.       /* write it out */
  270.       fn = enstring(name, dir);
  271.       if (fn == NULL)
  272. !         return(NULL);
  273.       f = fopen(fn, "w");
  274. !     free(fn);
  275.       if (f == NULL) {
  276.           dprint(5, (debugfile, "dbz_again: unable to write new .dir\n"));
  277. !         return(NULL);
  278.       }
  279.       i = putconf(f, &c);
  280.       (void) fclose(f);
  281.       if (i < 0) {
  282.           dprint(5, (debugfile, "dbz_again: putconf failed\n"));
  283. !         return(NULL);
  284.       }
  285.   
  286.       /* create/truncate .pag */
  287.       fn = enstring(name, pag);
  288.       if (fn == NULL)
  289. !         return(NULL);
  290.       f = fopen(fn, "w");
  291. !     free(fn);
  292.       if (f == NULL) {
  293.           dprint(5, (debugfile, "dbz_again: unable to create/truncate .pag file\n"));
  294. !         return(NULL);
  295.       } else
  296.           (void) fclose(f);
  297.   
  298. --- 491,519 ----
  299.       /* write it out */
  300.       fn = enstring(name, dir);
  301.       if (fn == NULL)
  302. !         return (DBZ *)NULL;
  303.       f = fopen(fn, "w");
  304. !     free((malloc_t)fn);
  305.       if (f == NULL) {
  306.           dprint(5, (debugfile, "dbz_again: unable to write new .dir\n"));
  307. !         return (DBZ *)NULL;
  308.       }
  309.       i = putconf(f, &c);
  310.       (void) fclose(f);
  311.       if (i < 0) {
  312.           dprint(5, (debugfile, "dbz_again: putconf failed\n"));
  313. !         return (DBZ *)NULL;
  314.       }
  315.   
  316.       /* create/truncate .pag */
  317.       fn = enstring(name, pag);
  318.       if (fn == NULL)
  319. !         return (DBZ *)NULL;
  320.       f = fopen(fn, "w");
  321. !     free((malloc_t)fn);
  322.       if (f == NULL) {
  323.           dprint(5, (debugfile, "dbz_again: unable to create/truncate .pag file\n"));
  324. !         return (DBZ *)NULL;
  325.       } else
  326.           (void) fclose(f);
  327.   
  328. ***************
  329. *** 512,540 ****
  330.   
  331.       if ((db = (DBZ *) calloc(sizeof(DBZ), 1)) == NULL) {
  332.           dprint(5, (debugfile, "dbz_open: no room for DBZ structure\n"));
  333. !         return(NULL);
  334.       }
  335.       /* open the .dir file */
  336.       dirfname = enstring(name, dir);
  337. !     if (dirfname == NULL)
  338. !         return(NULL);
  339.   
  340.       if (mode == O_RDONLY) {
  341.           db->dbz_dirf = fopen(dirfname, "r");
  342.           db->dbz_dirronly = 1;
  343.       } else
  344.           db->dbz_dirf = fopen(dirfname, "r+");
  345. !     free(dirfname);
  346.       if (db->dbz_dirf == NULL) {
  347.           dprint(5, (debugfile, "dbz_open: can't open .dir file\n"));
  348. !         return(NULL);
  349.       }
  350.   
  351.       /* open the .pag file */
  352.       pagfname = enstring(name, pag);
  353.       if (pagfname == NULL) {
  354.           (void) fclose(db->dbz_dirf);
  355. !         return(NULL);
  356.       }
  357.       if (mode == O_RDONLY) {
  358.           db->dbz_pagf = fopen(pagfname, "rb");
  359. --- 540,573 ----
  360.   
  361.       if ((db = (DBZ *) calloc(sizeof(DBZ), 1)) == NULL) {
  362.           dprint(5, (debugfile, "dbz_open: no room for DBZ structure\n"));
  363. !         return (DBZ *)NULL;
  364.       }
  365.       /* open the .dir file */
  366.       dirfname = enstring(name, dir);
  367. !     if (dirfname == NULL) {
  368. !         free((malloc_t)db);
  369. !         return (DBZ *)NULL;
  370. !     }
  371.   
  372.       if (mode == O_RDONLY) {
  373.           db->dbz_dirf = fopen(dirfname, "r");
  374.           db->dbz_dirronly = 1;
  375.       } else
  376.           db->dbz_dirf = fopen(dirfname, "r+");
  377. !     free((malloc_t)dirfname);
  378. ! 
  379.       if (db->dbz_dirf == NULL) {
  380.           dprint(5, (debugfile, "dbz_open: can't open .dir file\n"));
  381. !         free((malloc_t)db);
  382. !         return (DBZ *)NULL;
  383.       }
  384.   
  385.       /* open the .pag file */
  386.       pagfname = enstring(name, pag);
  387.       if (pagfname == NULL) {
  388.           (void) fclose(db->dbz_dirf);
  389. !         free((malloc_t)db);
  390. !         return (DBZ *)NULL;
  391.       }
  392.       if (mode == O_RDONLY) {
  393.           db->dbz_pagf = fopen(pagfname, "rb");
  394. ***************
  395. *** 545,552 ****
  396.       if (db->dbz_pagf == NULL) {
  397.           dprint(5, (debugfile, "dbz_open: .pag open failed\n"));
  398.           (void) fclose(db->dbz_dirf);
  399. !         free(pagfname);
  400. !         return(NULL);
  401.       }
  402.   #ifdef NOBUFFER
  403.       /*
  404. --- 578,586 ----
  405.       if (db->dbz_pagf == NULL) {
  406.           dprint(5, (debugfile, "dbz_open: .pag open failed\n"));
  407.           (void) fclose(db->dbz_dirf);
  408. !         free((malloc_t)pagfname);
  409. !         free((malloc_t)db);
  410. !         return (DBZ *)NULL;
  411.       }
  412.   #ifdef NOBUFFER
  413.       /*
  414. ***************
  415. *** 572,579 ****
  416.           if (db->dbz_basefname == NULL) {
  417.               (void) fclose(db->dbz_pagf);
  418.               (void) fclose(db->dbz_dirf);
  419. !             free(pagfname);
  420. !             return(NULL);
  421.           }
  422.       } else
  423.           db->dbz_basefname = NULL;
  424. --- 606,614 ----
  425.           if (db->dbz_basefname == NULL) {
  426.               (void) fclose(db->dbz_pagf);
  427.               (void) fclose(db->dbz_dirf);
  428. !             free((malloc_t)pagfname);
  429. !             free((malloc_t)db);
  430. !             return (DBZ *)NULL;
  431.           }
  432.       } else
  433.           db->dbz_basefname = NULL;
  434. ***************
  435. *** 589,597 ****
  436.           (void) fclose(db->dbz_pagf);
  437.           (void) fclose(db->dbz_basef);
  438.           (void) fclose(db->dbz_dirf);
  439. !         free(pagfname);
  440.           errno = EDOM;    /* kind of a kludge, but very portable */
  441. !         return(NULL);
  442.       }
  443.       db->dbz_tagbits = db->dbz_conf.tagmask << db->dbz_conf.tagshift;
  444.       db->dbz_taghere = db->dbz_conf.tagenb << db->dbz_conf.tagshift;
  445. --- 624,633 ----
  446.           (void) fclose(db->dbz_pagf);
  447.           (void) fclose(db->dbz_basef);
  448.           (void) fclose(db->dbz_dirf);
  449. !         free((malloc_t)pagfname);
  450. !         free((malloc_t)db);
  451.           errno = EDOM;    /* kind of a kludge, but very portable */
  452. !         return (DBZ *)NULL;
  453.       }
  454.       db->dbz_tagbits = db->dbz_conf.tagmask << db->dbz_conf.tagshift;
  455.       db->dbz_taghere = db->dbz_conf.tagenb << db->dbz_conf.tagshift;
  456. ***************
  457. *** 613,619 ****
  458.           db->dbz_bufpagf = NULL;
  459.           db->dbz_corepag = NULL;
  460.       }
  461. !     free(pagfname);
  462.   
  463.       /* misc. setup */
  464.       crcinit();
  465. --- 649,655 ----
  466.           db->dbz_bufpagf = NULL;
  467.           db->dbz_corepag = NULL;
  468.       }
  469. !     free((malloc_t)pagfname);
  470.   
  471.       /* misc. setup */
  472.       crcinit();
  473. ***************
  474. *** 668,681 ****
  475.           ret = -1;
  476.       }
  477.       if (db->dbz_corepag != NULL)
  478. !         free((char *)db->dbz_corepag);
  479.       db->dbz_corepag = NULL;
  480.       if (fclose(db->dbz_basef) == EOF) {
  481.           dprint(5, (debugfile, "dbz_close: fclose(basef) failed\n"));
  482.           ret = -1;
  483.       }
  484.       if (db->dbz_basefname != NULL)
  485. !         free(db->dbz_basefname);
  486.       db->dbz_basef = NULL;
  487.       db->dbz_pagf = NULL;
  488.       if (fclose(db->dbz_dirf) == EOF) {
  489. --- 704,717 ----
  490.           ret = -1;
  491.       }
  492.       if (db->dbz_corepag != NULL)
  493. !         free((malloc_t)db->dbz_corepag);
  494.       db->dbz_corepag = NULL;
  495.       if (fclose(db->dbz_basef) == EOF) {
  496.           dprint(5, (debugfile, "dbz_close: fclose(basef) failed\n"));
  497.           ret = -1;
  498.       }
  499.       if (db->dbz_basefname != NULL)
  500. !         free((malloc_t)db->dbz_basefname);
  501.       db->dbz_basef = NULL;
  502.       db->dbz_pagf = NULL;
  503.       if (fclose(db->dbz_dirf) == EOF) {
  504. ***************
  505. *** 683,689 ****
  506.           ret = -1;
  507.       }
  508.   
  509. !     free((char *) db);
  510.   
  511.       dprint(5, (debugfile, "dbz_close: %s\n", (ret == 0) ? "succeeded" : "failed"));
  512.       return(ret);
  513. --- 719,725 ----
  514.           ret = -1;
  515.       }
  516.   
  517. !     free((malloc_t) db);
  518.   
  519.       dprint(5, (debugfile, "dbz_close: %s\n", (ret == 0) ? "succeeded" : "failed"));
  520.       return(ret);
  521. ***************
  522. *** 829,842 ****
  523.   
  524.       if (db->dbz_basefname == NULL) {
  525.           dprint(5, (debugfile, "latebase: name foulup\n"));
  526. !         return(NULL);
  527.       }
  528.       it = fopen(db->dbz_basefname, "r");
  529.       if (it == NULL) {
  530.           dprint(5, (debugfile, "latebase: still can't open base\n"));
  531.       } else {
  532.           dprint(5, (debugfile, "latebase: late open succeeded\n"));
  533. !         free(db->dbz_basefname);
  534.           db->dbz_basefname = NULL;
  535.   #ifdef _IOFBF
  536.           (void) setvbuf(it, db->dbz_basebuf, _IOFBF, sizeof(db->dbz_basebuf));
  537. --- 865,878 ----
  538.   
  539.       if (db->dbz_basefname == NULL) {
  540.           dprint(5, (debugfile, "latebase: name foulup\n"));
  541. !         return (FILE *)NULL;
  542.       }
  543.       it = fopen(db->dbz_basefname, "r");
  544.       if (it == NULL) {
  545.           dprint(5, (debugfile, "latebase: still can't open base\n"));
  546.       } else {
  547.           dprint(5, (debugfile, "latebase: late open succeeded\n"));
  548. !         free((malloc_t)db->dbz_basefname);
  549.           db->dbz_basefname = NULL;
  550.   #ifdef _IOFBF
  551.           (void) setvbuf(it, db->dbz_basebuf, _IOFBF, sizeof(db->dbz_basebuf));
  552. ***************
  553. *** 988,996 ****
  554.   }
  555.   
  556.   /*
  557. !  - getno - get a long
  558.    */
  559. ! static long
  560.   getno(f, ep)
  561.   FILE *f;
  562.   int *ep;
  563. --- 1024,1032 ----
  564.   }
  565.   
  566.   /*
  567. !  - getno - get an int32
  568.    */
  569. ! static int32
  570.   getno(f, ep)
  571.   FILE *f;
  572.   int *ep;
  573. ***************
  574. *** 1023,1029 ****
  575.           dprint(5, (debugfile, "getno: `%s' non-numeric\n", getbuf));
  576.           *ep = -1;
  577.       }
  578. !     return(atol(getbuf));
  579.   }
  580.   
  581.   /*
  582. --- 1059,1066 ----
  583.           dprint(5, (debugfile, "getno: `%s' non-numeric\n", getbuf));
  584.           *ep = -1;
  585.       }
  586. ! 
  587. !     return((int32)atol(getbuf));
  588.   }
  589.   
  590.   /*
  591. ***************
  592. *** 1073,1086 ****
  593.       it = malloc((size_t)db->dbz_conf.tsize * SOF);
  594.       if (it == NULL) {
  595.           dprint(5, (debugfile, "getcore: malloc failed\n"));
  596. !         return(NULL);
  597.       }
  598.   
  599.       nread = fread(it, SOF, (size_t)db->dbz_conf.tsize, db->dbz_bufpagf);
  600.       if (ferror(db->dbz_bufpagf)) {
  601.           dprint(5, (debugfile, "getcore: read failed\n"));
  602. !         free(it);
  603. !         return(NULL);
  604.       }
  605.   
  606.       p = (of_t *)it + nread;
  607. --- 1110,1123 ----
  608.       it = malloc((size_t)db->dbz_conf.tsize * SOF);
  609.       if (it == NULL) {
  610.           dprint(5, (debugfile, "getcore: malloc failed\n"));
  611. !         return (of_t *)NULL;
  612.       }
  613.   
  614.       nread = fread(it, SOF, (size_t)db->dbz_conf.tsize, db->dbz_bufpagf);
  615.       if (ferror(db->dbz_bufpagf)) {
  616.           dprint(5, (debugfile, "getcore: read failed\n"));
  617. !         free((malloc_t)it);
  618. !         return (of_t *)NULL;
  619.       }
  620.   
  621.       p = (of_t *)it + nread;
  622.  
  623. Index: lib/opt_utils.c
  624. Prereq: 5.7
  625. *** ../elm2.4/lib/opt_utils.c    Tue Jan 19 22:02:34 1993
  626. --- lib/opt_utils.c    Tue Aug  3 16:11:44 1993
  627. ***************
  628. *** 1,8 ****
  629.   
  630. ! static char rcsid[] = "@(#)$Id: opt_utils.c,v 5.7 1993/01/20 03:02:19 syd Exp $";
  631.   
  632.   /*******************************************************************************
  633. !  *  The Elm Mail System  -  $Revision: 5.7 $   $State: Exp $
  634.    *
  635.    *            Copyright (c) 1988-1992 USENET Community Trust
  636.    *            Copyright (c) 1986,1987 Dave Taylor
  637. --- 1,8 ----
  638.   
  639. ! static char rcsid[] = "@(#)$Id: opt_utils.c,v 5.8 1993/08/03 19:28:39 syd Exp $";
  640.   
  641.   /*******************************************************************************
  642. !  *  The Elm Mail System  -  $Revision: 5.8 $   $State: Exp $
  643.    *
  644.    *            Copyright (c) 1988-1992 USENET Community Trust
  645.    *            Copyright (c) 1986,1987 Dave Taylor
  646. ***************
  647. *** 14,19 ****
  648. --- 14,31 ----
  649.    *
  650.    *******************************************************************************
  651.    * $Log: opt_utils.c,v $
  652. +  * Revision 5.8  1993/08/03  19:28:39  syd
  653. +  * Elm tries to replace the system toupper() and tolower() on current
  654. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  655. +  * collide during linking with routines in isctype.o.  This patch adds
  656. +  * a Configure test to determine whether replacements are really needed
  657. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  658. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  659. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  660. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  661. +  * were dropped.
  662. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  663. +  *
  664.    * Revision 5.7  1993/01/20  03:02:19  syd
  665.    * Move string declarations to defs.h
  666.    * From: Syd
  667. ***************
  668. *** 57,63 ****
  669.   
  670.   #include "headers.h"
  671.   #include "s_error.h"
  672. - #include <ctype.h>
  673.   
  674.   #ifdef PWDINSYS
  675.   #  include <sys/pwd.h>
  676. --- 69,74 ----
  677. ***************
  678. *** 65,75 ****
  679.   #  include <pwd.h>
  680.   #endif
  681.   
  682. - #ifdef BSD
  683. - #undef tolower
  684. - #undef toupper
  685. - #endif
  686. - 
  687.   #ifndef GETHOSTNAME
  688.   # ifdef DOUNAME
  689.   #  include <sys/utsname.h>
  690. --- 76,81 ----
  691. ***************
  692. *** 217,251 ****
  693.   
  694.   #endif
  695.   
  696. - #if defined(BSD) && !defined(_POSIX_SOURCE)
  697. - 
  698. - /** some supplementary string functions for Berkeley Unix systems **/
  699. - 
  700. - int
  701. - tolower(ch)
  702. - int ch;
  703. - {
  704. -     /** This should be a macro call, but if you use this as a macro
  705. -         calls to 'tolower' where the argument is a function call will
  706. -         cause the function to be called TWICE which is obviously the
  707. -         wrong behaviour.  On the other hand, to just blindly translate
  708. -         assuming the character is always uppercase can cause BIG
  709. -         problems, so...
  710. -     **/
  711. - 
  712. -     return ( isupper(ch) ? ch - 'A' + 'a' : ch );
  713. - }
  714. - 
  715. - int
  716. - toupper(ch)
  717. - int ch;
  718. - {
  719. -     /** see comment for above routine - tolower() **/
  720. - 
  721. -     return ( islower(ch) ? ch - 'a' + 'A' : ch );
  722. - }
  723. - 
  724. - #endif
  725.   
  726.   #ifndef STRTOK
  727.   
  728. --- 223,228 ----
  729.  
  730. Index: lib/parsarpdat.c
  731. Prereq: 5.2
  732. *** ../elm2.4/lib/parsarpdat.c    Sun Apr 11 22:16:33 1993
  733. --- lib/parsarpdat.c    Tue Aug  3 15:28:55 1993
  734. ***************
  735. *** 1,8 ****
  736.   
  737. ! static char rcsid[] = "@(#)$Id: parsarpdat.c,v 5.2 1993/04/12 02:16:32 syd Exp $";
  738.   
  739.   /*******************************************************************************
  740. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  741.    *
  742.    *             Copyright (c) 1993 USENET Community Trust
  743.    *******************************************************************************
  744. --- 1,8 ----
  745.   
  746. ! static char rcsid[] = "@(#)$Id: parsarpdat.c,v 5.3 1993/08/03 19:28:39 syd Exp $";
  747.   
  748.   /*******************************************************************************
  749. !  *  The Elm Mail System  -  $Revision: 5.3 $   $State: Exp $
  750.    *
  751.    *             Copyright (c) 1993 USENET Community Trust
  752.    *******************************************************************************
  753. ***************
  754. *** 13,18 ****
  755. --- 13,30 ----
  756.    *
  757.    *******************************************************************************
  758.    * $Log: parsarpdat.c,v $
  759. +  * Revision 5.3  1993/08/03  19:28:39  syd
  760. +  * Elm tries to replace the system toupper() and tolower() on current
  761. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  762. +  * collide during linking with routines in isctype.o.  This patch adds
  763. +  * a Configure test to determine whether replacements are really needed
  764. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  765. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  766. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  767. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  768. +  * were dropped.
  769. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  770. +  *
  771.    * Revision 5.2  1993/04/12  02:16:32  syd
  772.    * Fix year handling bug in date(1) time formats.
  773.    * From: chip@chinacat.unicom.com (Chip Rosenthal)
  774. ***************
  775. *** 25,31 ****
  776.   
  777.   
  778.   #include "headers.h"
  779. - #include <ctype.h>
  780.   
  781.   
  782.   /*
  783. --- 37,42 ----
  784.  
  785. Index: lib/parsarpwho.c
  786. Prereq: 5.3
  787. *** ../elm2.4/lib/parsarpwho.c    Tue Jan 19 00:07:19 1993
  788. --- lib/parsarpwho.c    Mon Jul 19 22:06:41 1993
  789. ***************
  790. *** 1,8 ****
  791.   
  792. ! static char rcsid[] = "@(#)$Id: parsarpwho.c,v 5.3 1993/01/19 05:07:05 syd Exp $";
  793.   
  794.   /*******************************************************************************
  795. !  *  The Elm Mail System  -  $Revision: 5.3 $   $State: Exp $
  796.    *
  797.    *            Copyright (c) 1988-1992 USENET Community Trust
  798.    *            Copyright (c) 1986,1987 Dave Taylor
  799. --- 1,8 ----
  800.   
  801. ! static char rcsid[] = "@(#)$Id: parsarpwho.c,v 5.4 1993/07/20 02:06:13 syd Exp $";
  802.   
  803.   /*******************************************************************************
  804. !  *  The Elm Mail System  -  $Revision: 5.4 $   $State: Exp $
  805.    *
  806.    *            Copyright (c) 1988-1992 USENET Community Trust
  807.    *            Copyright (c) 1986,1987 Dave Taylor
  808. ***************
  809. *** 14,19 ****
  810. --- 14,23 ----
  811.    *
  812.    *******************************************************************************
  813.    * $Log: parsarpwho.c,v $
  814. +  * Revision 5.4  1993/07/20  02:06:13  syd
  815. +  * Changes for vms problem
  816. +  * From: M.รก Anio
  817. +  *
  818.    * Revision 5.3  1993/01/19  05:07:05  syd
  819.    * Trim erroreous extra log entry
  820.    * From: Syd
  821. ***************
  822. *** 49,54 ****
  823. --- 53,60 ----
  824.           or  From: hplabs!dat (Dave Taylor)
  825.   
  826.           Added: removes quotes if name is quoted (12/12)
  827. +          HOWEVER:  From: "NAME \"VMS USER\"" <USER@VMS>
  828. +                must be handled delicately !
  829.           Added: only copies STRING characters...
  830.           Added: if no comment part, copy address instead! 
  831.           Added: if is_really_a_to, this is really a 'to' line
  832. ***************
  833. *** 119,134 ****
  834.         
  835.       if (strlen(temp) > 0) {        /* mess with buffer... */
  836.   
  837. !       /* remove leading spaces and quotes... */
  838.   
  839. !       while (whitespace(temp[0]) || temp[0] == '"')
  840.           temp = (char *) (temp + 1);        /* increment address! */
  841.   
  842. !       /* remove trailing spaces and quotes... */
  843.   
  844.         i = strlen(temp) - 1;
  845.   
  846. !       while (i >= 0 && (whitespace(temp[i]) || temp[i] == '"'))
  847.          temp[i--] = '\0';
  848.   
  849.         /* if anything is left, let's change 'from' value! */
  850. --- 125,150 ----
  851.         
  852.       if (strlen(temp) > 0) {        /* mess with buffer... */
  853.   
  854. !       /* remove leading spaces and ONE quote... */
  855.   
  856. !       while (whitespace(temp[0]))
  857. !         temp = (char *) (temp + 1);        /* increment address! */
  858. !       if (temp[0] == '"')
  859. !         temp = (char *) (temp + 1);        /* increment address! */
  860. !       while (whitespace(temp[0]))
  861.           temp = (char *) (temp + 1);        /* increment address! */
  862.   
  863. !       /* remove trailing spaces and ONE quote... */
  864.   
  865.         i = strlen(temp) - 1;
  866.   
  867. !       while (i >= 0 && (whitespace(temp[i])))
  868. !        temp[i--] = '\0';
  869. !       /* Can delete ONE trailing quote, NOT THEM ALL!
  870. !          Assuming the incoming quotes were all right.. [mea@utu.fi] */
  871. !       if (i >= 0 && temp[i] == '"')
  872. !        temp[i--] = '\0';
  873. !       while (i >= 0 && (whitespace(temp[i])))
  874.          temp[i--] = '\0';
  875.   
  876.         /* if anything is left, let's change 'from' value! */
  877.  
  878. Index: lib/posixsig.c
  879. Prereq: 5.6
  880. *** ../elm2.4/lib/posixsig.c    Tue Apr 20 21:16:46 1993
  881. --- lib/posixsig.c    Sun Aug 22 22:46:55 1993
  882. ***************
  883. *** 1,8 ****
  884.   
  885. ! static char rcsid[] = "@(#)$Id: posixsig.c,v 5.6 1993/04/21 01:16:45 syd Exp $";
  886.   
  887.   /*******************************************************************************
  888. !  *  The Elm Mail System  -  $Revision: 5.6 $   $State: Exp $
  889.    *
  890.    *            Copyright (c) 1988-1992 USENET Community Trust
  891.    *            Copyright (c) 1986,1987 Dave Taylor
  892. --- 1,8 ----
  893.   
  894. ! static char rcsid[] = "@(#)$Id: posixsig.c,v 5.8 1993/08/23 02:46:51 syd Exp $";
  895.   
  896.   /*******************************************************************************
  897. !  *  The Elm Mail System  -  $Revision: 5.8 $   $State: Exp $
  898.    *
  899.    *            Copyright (c) 1988-1992 USENET Community Trust
  900.    *            Copyright (c) 1986,1987 Dave Taylor
  901. ***************
  902. *** 14,19 ****
  903. --- 14,27 ----
  904.    *
  905.    *******************************************************************************
  906.    * $Log: posixsig.c,v $
  907. +  * Revision 5.8  1993/08/23  02:46:51  syd
  908. +  * Test ANSI_C, not __STDC__ (which is not set on e.g. AIX).
  909. +  * From: decwrl!uunet.UU.NET!fin!chip (Chip Salzenberg)
  910. +  *
  911. +  * Revision 5.7  1993/08/03  20:14:49  syd
  912. +  * Fix where some systems name SIG_ERR BADSIG
  913. +  * From: Syd
  914. +  *
  915.    * Revision 5.6  1993/04/21  01:16:45  syd
  916.    * SunOS 4.1.3 uses the BSD convention for signal handling in system
  917.    * calls like read. The system call resumes when the signal handler
  918. ***************
  919. *** 51,61 ****
  920.   #include "headers.h"
  921.   
  922.   #ifdef POSIX_SIGNALS
  923.   /*
  924.    * This routine used to duplicate the old signal() calls
  925.    */
  926.   SIGHAND_TYPE
  927. ! #if (defined(__STDC__) && !defined(apollo))
  928.   (*posix_signal(signo, fun))(int)
  929.       int signo;
  930.       SIGHAND_TYPE (*fun)(int);
  931. --- 59,78 ----
  932.   #include "headers.h"
  933.   
  934.   #ifdef POSIX_SIGNALS
  935. + 
  936. + #ifndef SIG_ERR
  937. + #  ifdef BADSIG
  938. + #    define SIG_ERR BADSIG
  939. + #  else
  940. + #    define SIG_ERR -1
  941. + #  endif /* BADSIG */
  942. + #endif /* SIG_ERRR */
  943. + 
  944.   /*
  945.    * This routine used to duplicate the old signal() calls
  946.    */
  947.   SIGHAND_TYPE
  948. ! #if ANSI_C && !defined(apollo)
  949.   (*posix_signal(signo, fun))(int)
  950.       int signo;
  951.       SIGHAND_TYPE (*fun)(int);
  952.  
  953. Index: lib/qstrings.c
  954. Prereq: 5.1
  955. *** ../elm2.4/lib/qstrings.c    Sat Oct  3 18:42:28 1992
  956. --- lib/qstrings.c    Tue Aug  3 15:28:56 1993
  957. ***************
  958. *** 1,8 ****
  959.   
  960. ! static char rcsid[] = "@(#)$Id: qstrings.c,v 5.1 1992/10/03 22:41:36 syd Exp $";
  961.   
  962.   /*******************************************************************************
  963. !  *  The Elm Mail System  -  $Revision: 5.1 $   $State: Exp $
  964.    *
  965.    *             Copyright (c) 1988-1992 USENET Community Trust
  966.    *             Copyright (c) 1986,1987 Dave Taylor
  967. --- 1,8 ----
  968.   
  969. ! static char rcsid[] = "@(#)$Id: qstrings.c,v 5.2 1993/08/03 19:28:39 syd Exp $";
  970.   
  971.   /*******************************************************************************
  972. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  973.    *
  974.    *             Copyright (c) 1988-1992 USENET Community Trust
  975.    *             Copyright (c) 1986,1987 Dave Taylor
  976. ***************
  977. *** 14,19 ****
  978. --- 14,31 ----
  979.    *
  980.    *******************************************************************************
  981.    * $Log: qstrings.c,v $
  982. +  * Revision 5.2  1993/08/03  19:28:39  syd
  983. +  * Elm tries to replace the system toupper() and tolower() on current
  984. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  985. +  * collide during linking with routines in isctype.o.  This patch adds
  986. +  * a Configure test to determine whether replacements are really needed
  987. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  988. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  989. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  990. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  991. +  * were dropped.
  992. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  993. +  *
  994.    * Revision 5.1  1992/10/03  22:41:36  syd
  995.    * Initial checkin as of 2.4 Release at PL0
  996.    *
  997. ***************
  998. *** 26,37 ****
  999.   **/
  1000.   
  1001.   #include "headers.h"
  1002. - #include <ctype.h>
  1003. - 
  1004. - #ifdef BSD
  1005. - #undef tolower
  1006. - #undef toupper
  1007. - #endif
  1008.   
  1009.   char *qstrpbrk(source, keys)
  1010.   char *source, *keys;
  1011. --- 38,43 ----
  1012.  
  1013. Index: lib/realfrom.c
  1014. Prereq: 5.3
  1015. *** ../elm2.4/lib/realfrom.c    Sat May  8 13:09:56 1993
  1016. --- lib/realfrom.c    Tue Aug  3 15:28:56 1993
  1017. ***************
  1018. *** 1,8 ****
  1019.   
  1020. ! static char rcsid[] = "@(#)$Id: realfrom.c,v 5.3 1993/05/08 17:09:56 syd Exp $";
  1021.   
  1022.   /*******************************************************************************
  1023. !  *  The Elm Mail System  -  $Revision: 5.3 $   $State: Exp $
  1024.    *
  1025.    *             Copyright (c) 1993 USENET Community Trust
  1026.    *******************************************************************************
  1027. --- 1,8 ----
  1028.   
  1029. ! static char rcsid[] = "@(#)$Id: realfrom.c,v 5.4 1993/08/03 19:28:39 syd Exp $";
  1030.   
  1031.   /*******************************************************************************
  1032. !  *  The Elm Mail System  -  $Revision: 5.4 $   $State: Exp $
  1033.    *
  1034.    *             Copyright (c) 1993 USENET Community Trust
  1035.    *******************************************************************************
  1036. ***************
  1037. *** 13,18 ****
  1038. --- 13,30 ----
  1039.    *
  1040.    *******************************************************************************
  1041.    * $Log: realfrom.c,v $
  1042. +  * Revision 5.4  1993/08/03  19:28:39  syd
  1043. +  * Elm tries to replace the system toupper() and tolower() on current
  1044. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  1045. +  * collide during linking with routines in isctype.o.  This patch adds
  1046. +  * a Configure test to determine whether replacements are really needed
  1047. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  1048. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  1049. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  1050. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  1051. +  * were dropped.
  1052. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  1053. +  *
  1054.    * Revision 5.3  1993/05/08  17:09:56  syd
  1055.    * Fix problem where "<space>From" was recognized as a valid "From_" line.
  1056.    * From: decwrl!decvax!gatech!WLK.COM!chip (Chip Rosenthal)
  1057. ***************
  1058. *** 30,40 ****
  1059.   
  1060.   
  1061.   #include "headers.h"
  1062. - #include <ctype.h>
  1063. - 
  1064. - #ifdef BSD
  1065. - #undef tolower
  1066. - #endif
  1067.   
  1068.   
  1069.   extern long make_gmttime();
  1070. --- 42,47 ----
  1071.  
  1072. Index: lib/rfc822tlen.c
  1073. *** /dev/null    Sun Sep 19 14:13:21 1993
  1074. --- lib/rfc822tlen.c    Mon Jul 19 23:15:24 1993
  1075. ***************
  1076. *** 0 ****
  1077. --- 1,155 ----
  1078. + 
  1079. + static char rcsid[] = "@(#)$Id: rfc822tlen.c,v 5.2 1993/07/20 03:15:15 syd Exp $";
  1080. + 
  1081. + /*******************************************************************************
  1082. +  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  1083. +  *
  1084. +  *            Copyright (c) 1993 USENET Community Trust
  1085. +  *******************************************************************************
  1086. +  * Bug reports, patches, comments, suggestions should be sent to:
  1087. +  *
  1088. +  *    Syd Weinstein, Elm Coordinator
  1089. +  *    elm@DSI.COM            dsinc!elm
  1090. +  *
  1091. +  *******************************************************************************
  1092. +  * $Log: rfc822tlen.c,v $
  1093. +  * Revision 5.2  1993/07/20  03:15:15  syd
  1094. +  * remove extra garbage line
  1095. +  *
  1096. +  * Revision 5.1  1993/06/10  03:02:20  syd
  1097. +  * Initial Checkin
  1098. +  *
  1099. +  *
  1100. +  ******************************************************************************/
  1101. + 
  1102. + #include <stdio.h>
  1103. + 
  1104. + /*
  1105. +  * rfc822_toklen(str) - Returns length of RFC-822 token that starts at "str".
  1106. +  *
  1107. +  * We understand the following tokens:
  1108. +  *
  1109. +  *    linear-white-space
  1110. +  *    specials
  1111. +  *    "quoted string"
  1112. +  *    [domain.literal]
  1113. +  *    (comment)
  1114. +  *    CTL  (control chars)
  1115. +  *    atom
  1116. +  */
  1117. + 
  1118. + #define charlen(s)    ((s)[0] == '\\' && (s)[1] != '\0' ? 2 : 1)
  1119. + 
  1120. + #define IS822_SPECIAL(c) ( \
  1121. +     ((c) == '(') || ((c) == ')') || ((c) == '<') || ((c) == '>') \
  1122. +     || ((c) == '@') || ((c) == ',') || ((c) == ';') || ((c) == ':') \
  1123. +     || ((c) == '\\') || ((c) == '"') || ((c) == '.') || ((c) == '[') \
  1124. +     || ((c) == ']') \
  1125. + )
  1126. + 
  1127. + /*
  1128. +  * RFC-822 defines SPACE to be just < > and HTAB, but after LWSP folding
  1129. +  * CR and NL should be equivalent.
  1130. +  */
  1131. + #define IS822_SPACE(c) ((c) == ' ' || (c) == '\t' || (c) == '\r' || (c) == '\n')
  1132. + 
  1133. + /*
  1134. +  * We've thrown non-ASCII (value > 0177) into this.
  1135. +  */
  1136. + #define IS822_CTL(c)    ((c) <= 037 || (c) >= 0177)
  1137. + 
  1138. + #define IS822_ATOMCH(c)    (!IS822_SPECIAL(c) && !IS822_SPACE(c) && !IS822_CTL(c))
  1139. + 
  1140. + 
  1141. + int rfc822_toklen(str)
  1142. + register char *str;
  1143. + {
  1144. +     char *str0;
  1145. +     int depth;
  1146. +     register int chlen;
  1147. + 
  1148. +     str0 = str;
  1149. + 
  1150. +     if (*str == '"') {            /* quoted-string */
  1151. +         ++str;
  1152. +         while (*str != '\0' && *str != '"')
  1153. +             str += charlen(str);
  1154. +         if (*str != '\0')
  1155. +             ++str;
  1156. +         return (str-str0);
  1157. +     }
  1158. + 
  1159. +     if (*str == '(' ) {            /* comment */
  1160. +         ++str;
  1161. +         depth = 0;
  1162. +         while (*str != '\0' && (*str != ')' || depth > 0)) {
  1163. +             switch (*str) {
  1164. +             case '(':
  1165. +                 ++str;
  1166. +                 ++depth;
  1167. +                 break;
  1168. +             case ')':
  1169. +                 ++str;
  1170. +                 --depth;
  1171. +                 break;
  1172. +             default:
  1173. +                 str += charlen(str);
  1174. +                 break;
  1175. +             }
  1176. +         }
  1177. +         if (*str != '\0')
  1178. +             ++str;
  1179. +         return (str-str0);
  1180. +     }
  1181. + 
  1182. + 
  1183. +     if (*str == '[') {            /* domain-literal */
  1184. +         ++str;
  1185. +         while (*str != '\0' && *str != ']')
  1186. +             str += charlen(str);
  1187. +         if (*str != '\0')
  1188. +             ++str;
  1189. +         return (str-str0);
  1190. +     }
  1191. + 
  1192. +     if (IS822_SPACE(*str)) {        /* linear-white-space */
  1193. +         while (++str, IS822_SPACE(*str))
  1194. +             ;
  1195. +         return (str-str0);
  1196. +     }
  1197. + 
  1198. +     if (IS822_SPECIAL(*str) || IS822_CTL(*str))
  1199. +         return charlen(str);        /* specials and CTL */
  1200. + 
  1201. +     /*
  1202. +      * Treat as an "atom".
  1203. +      */
  1204. +     while (IS822_ATOMCH(*str))
  1205. +         ++str;
  1206. +     return (str-str0);
  1207. + }
  1208. + 
  1209. + 
  1210. + #ifdef _TEST
  1211. + main()
  1212. + {
  1213. +     char buf[1024], *bp;
  1214. +     int len;
  1215. +     for (;;) {
  1216. +         fputs("\nstr> ", stdout);
  1217. +         fflush(stdout);
  1218. +         if (gets(buf) == NULL) {
  1219. +             putchar('\n');
  1220. +             break;
  1221. +         }
  1222. +         bp = buf;
  1223. +         while (*bp != '\0') {
  1224. +             len = rfc822_toklen(bp);
  1225. +             printf("len %4d  |%.*s|\n", len, len, bp);
  1226. +             bp += len;
  1227. +         }
  1228. +     }
  1229. +     exit(0);
  1230. + }
  1231. + #endif
  1232. + 
  1233.  
  1234. Index: lib/shiftlower.c
  1235. Prereq: 5.1
  1236. *** ../elm2.4/lib/shiftlower.c    Sat Oct  3 18:42:29 1992
  1237. --- lib/shiftlower.c    Tue Aug  3 15:28:57 1993
  1238. ***************
  1239. *** 1,7 ****
  1240. ! static char rcsid[] = "@(#)$Id: shiftlower.c,v 5.1 1992/10/03 22:41:36 syd Exp $";
  1241.   
  1242.   /*******************************************************************************
  1243. !  *  The Elm Mail System  -  $Revision: 5.1 $   $State: Exp $
  1244.    *
  1245.    *            Copyright (c) 1988-1992 USENET Community Trust
  1246.    *            Copyright (c) 1986,1987 Dave Taylor
  1247. --- 1,7 ----
  1248. ! static char rcsid[] = "@(#)$Id: shiftlower.c,v 5.2 1993/08/03 19:28:39 syd Exp $";
  1249.   
  1250.   /*******************************************************************************
  1251. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  1252.    *
  1253.    *            Copyright (c) 1988-1992 USENET Community Trust
  1254.    *            Copyright (c) 1986,1987 Dave Taylor
  1255. ***************
  1256. *** 13,18 ****
  1257. --- 13,30 ----
  1258.    *
  1259.    *******************************************************************************
  1260.    * $Log: shiftlower.c,v $
  1261. +  * Revision 5.2  1993/08/03  19:28:39  syd
  1262. +  * Elm tries to replace the system toupper() and tolower() on current
  1263. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  1264. +  * collide during linking with routines in isctype.o.  This patch adds
  1265. +  * a Configure test to determine whether replacements are really needed
  1266. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  1267. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  1268. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  1269. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  1270. +  * were dropped.
  1271. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  1272. +  *
  1273.    * Revision 5.1  1992/10/03  22:41:36  syd
  1274.    * Initial checkin as of 2.4 Release at PL0
  1275.    *
  1276. ***************
  1277. *** 25,37 ****
  1278.   
  1279.   #include "headers.h"
  1280.   
  1281. - #include <ctype.h>
  1282. - 
  1283. - #ifdef BSD
  1284. - #undef tolower
  1285. - #undef toupper
  1286. - #endif
  1287. - 
  1288.   char *shift_lower(string)
  1289.   char *string;
  1290.   {
  1291. --- 37,42 ----
  1292. ***************
  1293. *** 42,51 ****
  1294.       register char *bufptr = buffer;
  1295.   
  1296.       for (; *string; string++, bufptr++)
  1297. !       if (isupper(*string))
  1298. !         *bufptr = tolower(*string);
  1299. !       else
  1300. !         *bufptr = *string;
  1301.       
  1302.       *bufptr = 0;
  1303.       
  1304. --- 47,53 ----
  1305.       register char *bufptr = buffer;
  1306.   
  1307.       for (; *string; string++, bufptr++)
  1308. !       *bufptr = tolower(*string);
  1309.       
  1310.       *bufptr = 0;
  1311.       
  1312.  
  1313. Index: lib/strftime.c
  1314. Prereq: 5.4
  1315. *** ../elm2.4/lib/strftime.c    Sat May  8 15:56:51 1993
  1316. --- lib/strftime.c    Sun Aug 22 22:46:56 1993
  1317. ***************
  1318. *** 1,8 ****
  1319.   
  1320. ! static char rcsid[] = "@(#)$Id: strftime.c,v 5.4 1993/05/08 19:56:45 syd Exp $";
  1321.   
  1322.   /*******************************************************************************
  1323. !  *  The Elm Mail System  -  $Revision: 5.4 $   $State: Exp $
  1324.    *
  1325.    * Public-domain relatively quick-and-dirty implemenation of
  1326.    * ANSI library routine for System V Unix systems.
  1327. --- 1,8 ----
  1328.   
  1329. ! static char rcsid[] = "@(#)$Id: strftime.c,v 5.8 1993/08/23 02:46:51 syd Exp $";
  1330.   
  1331.   /*******************************************************************************
  1332. !  *  The Elm Mail System  -  $Revision: 5.8 $   $State: Exp $
  1333.    *
  1334.    * Public-domain relatively quick-and-dirty implemenation of
  1335.    * ANSI library routine for System V Unix systems.
  1336. ***************
  1337. *** 19,24 ****
  1338. --- 19,52 ----
  1339.    *
  1340.    *******************************************************************************
  1341.    * $Log: strftime.c,v $
  1342. +  * Revision 5.8  1993/08/23  02:46:51  syd
  1343. +  * Test ANSI_C, not __STDC__ (which is not set on e.g. AIX).
  1344. +  * From: decwrl!uunet.UU.NET!fin!chip (Chip Salzenberg)
  1345. +  *
  1346. +  * Revision 5.7  1993/08/03  19:28:39  syd
  1347. +  * Elm tries to replace the system toupper() and tolower() on current
  1348. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  1349. +  * collide during linking with routines in isctype.o.  This patch adds
  1350. +  * a Configure test to determine whether replacements are really needed
  1351. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  1352. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  1353. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  1354. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  1355. +  * were dropped.
  1356. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  1357. +  *
  1358. +  * Revision 5.6  1993/08/03  19:20:31  syd
  1359. +  * Implement new timezone handling.  New file lib/get_tz.c with new timezone
  1360. +  * routines.  Added new TZMINS_USE_xxxxxx and TZNAME_USE_xxxxxx configuration
  1361. +  * definitions.  Obsoleted TZNAME, ALTCHECK, and TZ_MINUTESWEST configuration
  1362. +  * definitions.  Updated Configure.  Modified lib/getarpdate.c and
  1363. +  * lib/strftime.c to use new timezone routines.
  1364. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  1365. +  *
  1366. +  * Revision 5.5  1993/06/10  03:17:45  syd
  1367. +  * Change from TZNAME_MISSING to TZNAME
  1368. +  * From: Syd via request from Dan Blanchard
  1369. +  *
  1370.    * Revision 5.4  1993/05/08  19:56:45  syd
  1371.    * update to newer version
  1372.    * From: Syd
  1373. ***************
  1374. *** 79,103 ****
  1375.   #ifdef I_SYSTIME
  1376.   #  include <sys/time.h>
  1377.   #endif
  1378. - #ifdef BSD
  1379. - #  include <sys/timeb.h>
  1380. - #endif
  1381.   
  1382. ! #include <ctype.h>
  1383.   
  1384. ! #ifndef __STDC__
  1385. ! #define const    /**/
  1386.   
  1387.   #ifndef BSD
  1388. ! extern void tzset();
  1389. ! #endif
  1390. ! static int weeknumber();
  1391. ! #else /* __STDC__ */
  1392. ! #ifndef BSD
  1393. ! extern void tzset(void);
  1394.   #endif
  1395. ! static int weeknumber(const struct tm *timeptr, int firstweekday);
  1396. ! #endif
  1397.   
  1398.   /* defaults: season to taste */
  1399.   #define SYSV_EXT    1    /* stuff in System V ascftime routine */
  1400. --- 107,126 ----
  1401.   #ifdef I_SYSTIME
  1402.   #  include <sys/time.h>
  1403.   #endif
  1404.   
  1405. ! #if ANSI_C
  1406. ! # define P_(x) x
  1407. ! #else
  1408. ! # define P_(x) /**/
  1409. ! # define const    /**/
  1410. ! #endif
  1411.   
  1412. ! extern char *get_tz_name();
  1413.   
  1414.   #ifndef BSD
  1415. ! extern void tzset P_((void));
  1416.   #endif
  1417. ! static int weeknumber P_((const struct tm *timeptr, int firstweekday));
  1418.   
  1419.   /* defaults: season to taste */
  1420.   #define SYSV_EXT    1    /* stuff in System V ascftime routine */
  1421. ***************
  1422. *** 133,146 ****
  1423.   
  1424.   #define range(low, item, hi)    maximum(low, minimum(item, hi))
  1425.   
  1426. - #ifndef BSD
  1427. - extern char *tzname[2];
  1428. - extern int daylight;
  1429. - #endif
  1430. - 
  1431.   /* minimum --- return minimum of two numbers */
  1432.   
  1433. ! #ifndef __STDC__
  1434.   static inline int
  1435.   minimum(a, b)
  1436.   int a, b;
  1437. --- 156,164 ----
  1438.   
  1439.   #define range(low, item, hi)    maximum(low, minimum(item, hi))
  1440.   
  1441.   /* minimum --- return minimum of two numbers */
  1442.   
  1443. ! #if !ANSI_C
  1444.   static inline int
  1445.   minimum(a, b)
  1446.   int a, b;
  1447. ***************
  1448. *** 154,160 ****
  1449.   
  1450.   /* maximum --- return maximum of two numbers */
  1451.   
  1452. ! #ifndef __STDC__
  1453.   static inline int
  1454.   maximum(a, b)
  1455.   int a, b;
  1456. --- 172,178 ----
  1457.   
  1458.   /* maximum --- return maximum of two numbers */
  1459.   
  1460. ! #if !ANSI_C
  1461.   static inline int
  1462.   maximum(a, b)
  1463.   int a, b;
  1464. ***************
  1465. *** 168,174 ****
  1466.   
  1467.   /* strftime --- produce formatted time */
  1468.   
  1469. ! #ifndef __STDC__
  1470.   size_t
  1471.   strftime(s, maxsize, format, timeptr)
  1472.   char *s;
  1473. --- 186,192 ----
  1474.   
  1475.   /* strftime --- produce formatted time */
  1476.   
  1477. ! #if !ANSI_C
  1478.   size_t
  1479.   strftime(s, maxsize, format, timeptr)
  1480.   char *s;
  1481. ***************
  1482. *** 394,411 ****
  1483.               break;
  1484.   
  1485.           case 'Z':    /* time zone name or abbrevation */
  1486. !             i = 0;
  1487. !             if (
  1488. ! #ifndef TZNAME_MISSING
  1489. !                 daylight &&
  1490. ! #endif
  1491. !                 timeptr->tm_isdst)
  1492. !                 i = 1;
  1493. ! #ifdef TZNAME_MISSING
  1494. !             strcpy(tbuf, timeptr->tm_zone);
  1495. ! #else
  1496. !             strcpy(tbuf, tzname[i]);
  1497. ! #endif
  1498.               break;
  1499.   
  1500.   #ifdef SYSV_EXT
  1501. --- 412,418 ----
  1502.               break;
  1503.   
  1504.           case 'Z':    /* time zone name or abbrevation */
  1505. !             strcpy(tbuf, get_tz_name(timeptr));
  1506.               break;
  1507.   
  1508.   #ifdef SYSV_EXT
  1509. ***************
  1510. *** 528,534 ****
  1511.   #ifdef POSIX2_DATE
  1512.   /* iso8601wknum --- compute week number according to ISO 8601 */
  1513.   
  1514. ! #ifndef __STDC__
  1515.   static int
  1516.   iso8601wknum(timeptr)
  1517.   const struct tm *timeptr;
  1518. --- 535,541 ----
  1519.   #ifdef POSIX2_DATE
  1520.   /* iso8601wknum --- compute week number according to ISO 8601 */
  1521.   
  1522. ! #if !ANSI_C
  1523.   static int
  1524.   iso8601wknum(timeptr)
  1525.   const struct tm *timeptr;
  1526. ***************
  1527. *** 590,596 ****
  1528.   
  1529.   /* With thanks and tip of the hatlo to ado@elsie.nci.nih.gov */
  1530.   
  1531. ! #ifndef __STDC__
  1532.   static int
  1533.   weeknumber(timeptr, firstweekday)
  1534.   const struct tm *timeptr;
  1535. --- 597,603 ----
  1536.   
  1537.   /* With thanks and tip of the hatlo to ado@elsie.nci.nih.gov */
  1538.   
  1539. ! #if !ANSI_C
  1540.   static int
  1541.   weeknumber(timeptr, firstweekday)
  1542.   const struct tm *timeptr;
  1543.  
  1544. Index: lib/strincmp.c
  1545. Prereq: 5.1
  1546. *** ../elm2.4/lib/strincmp.c    Sat Oct  3 18:42:29 1992
  1547. --- lib/strincmp.c    Tue Aug  3 15:28:58 1993
  1548. ***************
  1549. *** 1,8 ****
  1550.   
  1551. ! static char rcsid[] = "@(#)$Id: strincmp.c,v 5.1 1992/10/03 22:41:36 syd Exp $";
  1552.   
  1553.   /*******************************************************************************
  1554. !  *  The Elm Mail System  -  $Revision: 5.1 $   $State: Exp $
  1555.    *
  1556.    *            Copyright (c) 1988-1992 USENET Community Trust
  1557.    *            Copyright (c) 1986,1987 Dave Taylor
  1558. --- 1,8 ----
  1559.   
  1560. ! static char rcsid[] = "@(#)$Id: strincmp.c,v 5.2 1993/08/03 19:28:39 syd Exp $";
  1561.   
  1562.   /*******************************************************************************
  1563. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  1564.    *
  1565.    *            Copyright (c) 1988-1992 USENET Community Trust
  1566.    *            Copyright (c) 1986,1987 Dave Taylor
  1567. ***************
  1568. *** 14,19 ****
  1569. --- 14,31 ----
  1570.    *
  1571.    *******************************************************************************
  1572.    * $Log: strincmp.c,v $
  1573. +  * Revision 5.2  1993/08/03  19:28:39  syd
  1574. +  * Elm tries to replace the system toupper() and tolower() on current
  1575. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  1576. +  * collide during linking with routines in isctype.o.  This patch adds
  1577. +  * a Configure test to determine whether replacements are really needed
  1578. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  1579. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  1580. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  1581. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  1582. +  * were dropped.
  1583. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  1584. +  *
  1585.    * Revision 5.1  1992/10/03  22:41:36  syd
  1586.    * Initial checkin as of 2.4 Release at PL0
  1587.    *
  1588. ***************
  1589. *** 24,35 ****
  1590.   **/
  1591.   
  1592.   #include "headers.h"
  1593. - #include <ctype.h>
  1594. - 
  1595. - #ifdef BSD
  1596. - #undef tolower
  1597. - #undef toupper
  1598. - #endif
  1599.   
  1600.   int
  1601.   strincmp(s1,s2,n)
  1602. --- 36,41 ----
  1603. ***************
  1604. *** 39,46 ****
  1605.       /* case insensitive comparison */
  1606.       register int d;
  1607.       while (--n >= 0) {
  1608. !       d = ( isupper(*s1) ? tolower(*s1) : *s1 )
  1609. !           - ( isupper(*s2) ? tolower(*s2) : *s2 ) ;
  1610.         if ( d != 0 || *s1 == '\0' || *s2 == '\0' )
  1611.           return d;
  1612.         ++s1;
  1613. --- 45,51 ----
  1614.       /* case insensitive comparison */
  1615.       register int d;
  1616.       while (--n >= 0) {
  1617. !       d = (tolower(*s1) - tolower(*s2));
  1618.         if ( d != 0 || *s1 == '\0' || *s2 == '\0' )
  1619.           return d;
  1620.         ++s1;
  1621.  
  1622. Index: lib/striparens.c
  1623. Prereq: 5.1
  1624. *** ../elm2.4/lib/striparens.c    Sat Oct  3 18:42:30 1992
  1625. --- lib/striparens.c    Wed Jun  9 23:09:06 1993
  1626. ***************
  1627. *** 1,7 ****
  1628. ! static char rcsid[] = "@(#)$Id: striparens.c,v 5.1 1992/10/03 22:41:36 syd Exp $";
  1629.   
  1630.   /*******************************************************************************
  1631. !  *  The Elm Mail System  -  $Revision: 5.1 $   $State: Exp $
  1632.    *
  1633.    *            Copyright (c) 1988-1992 USENET Community Trust
  1634.    *            Copyright (c) 1986,1987 Dave Taylor
  1635. --- 1,7 ----
  1636. ! static char rcsid[] = "@(#)$Id: striparens.c,v 5.2 1993/06/10 03:09:06 syd Exp $";
  1637.   
  1638.   /*******************************************************************************
  1639. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  1640.    *
  1641.    *            Copyright (c) 1988-1992 USENET Community Trust
  1642.    *            Copyright (c) 1986,1987 Dave Taylor
  1643. ***************
  1644. *** 13,134 ****
  1645.    *
  1646.    *******************************************************************************
  1647.    * $Log: striparens.c,v $
  1648.    * Revision 5.1  1992/10/03  22:41:36  syd
  1649.    * Initial checkin as of 2.4 Release at PL0
  1650.    *
  1651.    *
  1652.    ******************************************************************************/
  1653.   
  1654. ! /** 
  1655. ! 
  1656. ! **/
  1657.   
  1658.   #include "headers.h"
  1659.   
  1660.   
  1661. ! char *strip_parens(string)
  1662. ! char *string;
  1663.   {
  1664. !     /**
  1665. !         Remove parenthesized information from a string.  More specifically,
  1666. !         comments as defined in RFC822 are removed.  This procedure is
  1667. !         non-destructive - a pointer to static data is returned.
  1668. !     **/
  1669. !     static char  buffer[VERY_LONG_STRING];
  1670. !     register char *bufp;
  1671. !     register int depth, l;
  1672. ! 
  1673. !     bufp = buffer;
  1674. !     depth = 0;
  1675. !     while (*string != '\0') {
  1676. !       l = len_next_part(string);
  1677. !       if (l == 1) {
  1678. !         switch ( *string ) {
  1679. !         case '(':            /* begin comment on '('        */
  1680. !           ++depth;
  1681. !           break;
  1682. !         case ')':            /* decr nesting level on ')'    */
  1683. !           --depth;
  1684. !           break;
  1685. !         case '\\':            /* treat next char literally    */
  1686. !           if ( *++string == '\0' ) {        /* gracefully handle    */
  1687. !         *bufp++ = '\\';            /* '\' at end of string    */
  1688. !         --string;                /* even tho it's wrong    */
  1689. !           } else if ( depth == 0 ) {
  1690. !         *bufp++ = '\\';
  1691. !         *bufp++ = *string;
  1692. !           }
  1693. !           break;
  1694. !         default:            /* a regular char        */
  1695. !           if ( depth == 0 )
  1696. !         *bufp++ = *string;
  1697. !           break;
  1698. !         }
  1699. !         string++;
  1700. !       } else {
  1701. !         if (depth == 0) {
  1702. !           while (--l >= 0)
  1703. !         *bufp++ = *string++;
  1704. !         } else
  1705. !           string += l;
  1706. !       }
  1707.       }
  1708. !     *bufp = '\0';
  1709. !     return( (char *) buffer);
  1710.   }
  1711.   
  1712. ! /*
  1713. !  * Added by RLH.  This could be combined w/ above if willing to pass
  1714. !  * a TRUE/FALSE for whether we are stripping or getting...
  1715. !  */
  1716. ! char *get_parens(string)
  1717. ! char *string;
  1718.   {
  1719. !     /**
  1720. !         Find and return parenthesized information in a string.  More
  1721. !         specifically, comments as defined in RFC822 are retrieved.
  1722. !         This procedure is non-destructive - a pointer to static data
  1723. !         is returned.
  1724. !     **/
  1725. !     static char  buffer[VERY_LONG_STRING];
  1726. !     register char *bufp;
  1727. !     register int depth, l;
  1728. ! 
  1729. !     bufp = buffer;
  1730. !     depth = 0;
  1731. !     while (*string != '\0') {
  1732. !       l = len_next_part(string);
  1733. !       if (l == 1) {
  1734. !         switch ( *string ) {
  1735. !         case '(':            /* begin comment on '('        */
  1736. !           ++depth;
  1737. !           break;
  1738. !         case ')':            /* decr nesting level on ')'    */
  1739. !           --depth;
  1740. !           break;
  1741. !         case '\\':            /* treat next char literally    */
  1742. !           if ( *++string == '\0' ) {        /* gracefully handle    */
  1743. !         *bufp++ = '\\';            /* '\' at end of string    */
  1744. !         --string;                /* even tho it's wrong    */
  1745. !           } else if ( depth > 0 ) {
  1746. !         *bufp++ = '\\';
  1747. !         *bufp++ = *string;
  1748. !           }
  1749. !           break;
  1750. !         default:            /* a regular char        */
  1751. !           if ( depth > 0 )
  1752. !         *bufp++ = *string;
  1753. !           break;
  1754. !         }
  1755. !         string++;
  1756. !       } else {
  1757. !         if (depth > 0) {
  1758. !           while (--l >= 0)
  1759. !         *bufp++ = *string++;
  1760. !         } else
  1761. !           string += l;
  1762. !       }
  1763.       }
  1764. !     *bufp = '\0';
  1765. !     return( (char *) buffer);
  1766.   }
  1767. --- 13,89 ----
  1768.    *
  1769.    *******************************************************************************
  1770.    * $Log: striparens.c,v $
  1771. +  * Revision 5.2  1993/06/10  03:09:06  syd
  1772. +  * Greatly simplified "lib/striparens.c" to use new rfc822_toklen() routine.
  1773. +  * This cut more than 50% out of the object size.  Also added _TEST case.
  1774. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  1775. +  *
  1776.    * Revision 5.1  1992/10/03  22:41:36  syd
  1777.    * Initial checkin as of 2.4 Release at PL0
  1778.    *
  1779.    *
  1780.    ******************************************************************************/
  1781.   
  1782. ! /* 
  1783. !  * strip_parens() - Delete all (parenthesized) information from a string.
  1784. !  * get_parens() - Extract all (parenthesized) information from a string.
  1785. !  *
  1786. !  * These routines handle RFC-822 comments.  Nested parens are understood.
  1787. !  * get_parens() does not include the parens in the return result.  Both
  1788. !  * routines are non-destructive.  They return a pointer to static data
  1789. !  * that will be overwritten on the next call to either routine.
  1790. !  */
  1791.   
  1792.   #include "headers.h"
  1793.   
  1794. + static char paren_buffer[VERY_LONG_STRING];
  1795.   
  1796. ! char *strip_parens(src)
  1797. ! register char *src;
  1798.   {
  1799. !     register int len;
  1800. !     register char *dest = paren_buffer;
  1801. ! 
  1802. !     while (*src != '\0') {
  1803. !         len = rfc822_toklen(src);
  1804. !         if (*src != '(') {    /*)*/
  1805. !             strncpy(dest, src, len);
  1806. !             dest += len;
  1807. !         }
  1808. !         src += len;
  1809.       }
  1810. !     *dest = '\0';
  1811. !     return paren_buffer;
  1812.   }
  1813.   
  1814. ! char *get_parens(src)
  1815. ! register char *src;
  1816.   {
  1817. !     register int len;
  1818. !     register char *dest = paren_buffer;
  1819. ! 
  1820. !     while (*src != '\0') {
  1821. !         len = rfc822_toklen(src);
  1822. !         if (len > 2 && *src == '(') {    /*)*/
  1823. !             strncpy(dest, src+1, len-2);
  1824. !             dest += (len-2);
  1825. !         }
  1826. !         src += len;
  1827. !     }
  1828. !     *dest = '\0';
  1829. !     return paren_buffer;
  1830. ! }
  1831. ! 
  1832. ! #ifdef _TEST
  1833. ! main()
  1834. ! {
  1835. !     char buf[1024];
  1836. !     while (fputs("\nstr> ", stdout), gets(buf) != NULL) {
  1837. !         printf("strip_parens() |%s|\n", strip_parens(buf));
  1838. !         printf("get_parens()   |%s|\n", get_parens(buf));
  1839.       }
  1840. !     putchar('\n');
  1841. !     exit(0);
  1842.   }
  1843. + #endif
  1844. + 
  1845.  
  1846. Index: lib/strtokq.c
  1847. Prereq: 5.2
  1848. *** ../elm2.4/lib/strtokq.c    Wed Feb  3 11:20:33 1993
  1849. --- lib/strtokq.c    Mon Jul 19 22:05:17 1993
  1850. ***************
  1851. *** 1,8 ****
  1852.   
  1853. ! static char rcsid[] = "@(#)$Id: strtokq.c,v 5.2 1993/02/03 16:20:30 syd Exp $";
  1854.   
  1855.   /*******************************************************************************
  1856. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  1857.    *
  1858.    *            Copyright (c) 1988-1992 USENET Community Trust
  1859.    *            Copyright (c) 1986,1987 Dave Taylor
  1860. --- 1,8 ----
  1861.   
  1862. ! static char rcsid[] = "@(#)$Id: strtokq.c,v 5.3 1993/07/20 02:05:17 syd Exp $";
  1863.   
  1864.   /*******************************************************************************
  1865. !  *  The Elm Mail System  -  $Revision: 5.3 $   $State: Exp $
  1866.    *
  1867.    *            Copyright (c) 1988-1992 USENET Community Trust
  1868.    *            Copyright (c) 1986,1987 Dave Taylor
  1869. ***************
  1870. *** 14,19 ****
  1871. --- 14,35 ----
  1872.    *
  1873.    *******************************************************************************
  1874.    * $Log: strtokq.c,v $
  1875. +  * Revision 5.3  1993/07/20  02:05:17  syd
  1876. +  * A long-standing bug of handling replies to VMS systems.
  1877. +  * Original "From: " -line is of format:
  1878. +  *     From: "NAME \"Real Name\"" <USERNAME@vms-system>
  1879. +  * (PMDF mailer)
  1880. +  *     Anyway,  parse_arpa_who()  strips quotes too cleanly
  1881. +  * resulting data:
  1882. +  *     NAME \"Real Name\
  1883. +  * which, when put into parenthesis, becomes:
  1884. +  *     (NAME \"Real Name\)
  1885. +  * which in its turn lacks closing `)'
  1886. +  * Patch of  lib/parsarpwho.c  fixes that.
  1887. +  * strtokq() started one position too late to search for next double-quote (") char.
  1888. +  * Another one-off (chops off trailing comment character, quote or not..)  in   src/reply.c
  1889. +  * From:    Matti Aarnio <mea@utu.fi>
  1890. +  *
  1891.    * Revision 5.2  1993/02/03  16:20:30  syd
  1892.    * add include file
  1893.    *
  1894. ***************
  1895. *** 54,60 ****
  1896.           register char *sp;
  1897.           char quote = *sourceptr++;
  1898.   
  1899. !         for (sp = sourceptr+1; *sp != '\0' && *sp != quote; sp++)
  1900.             if (*sp == '\\') sp++;    /* skip escaped characters */
  1901.                       /* expand_macros will fix them later */
  1902.   
  1903. --- 70,76 ----
  1904.           register char *sp;
  1905.           char quote = *sourceptr++;
  1906.   
  1907. !         for (sp = sourceptr; *sp != '\0' && *sp != quote; sp++)
  1908.             if (*sp == '\\') sp++;    /* skip escaped characters */
  1909.                       /* expand_macros will fix them later */
  1910.   
  1911.  
  1912. Index: nls/C/C/C/s_aliases.m
  1913. *** ../elm2.4/nls/C/C/C/s_aliases.m    Sat May  8 13:03:49 1993
  1914. --- nls/C/C/C/s_aliases.m    Sat Jun 12 01:26:18 1993
  1915. ***************
  1916. *** 31,37 ****
  1917.   $ #MenuLn3
  1918.   16    l)imit display, m)ail, n)ew alias, r)eturn, t)ag, u)ndelete, or e(x)it
  1919.   $ #Sort
  1920. ! 17    Sorting messages by %s...
  1921.   $ group and person must both be 6 characters long
  1922.   $ #Group
  1923.   18    " Group"
  1924. --- 31,37 ----
  1925.   $ #MenuLn3
  1926.   16    l)imit display, m)ail, n)ew alias, r)eturn, t)ag, u)ndelete, or e(x)it
  1927.   $ #Sort
  1928. ! 17    Sorting aliases by %s...
  1929.   $ group and person must both be 6 characters long
  1930.   $ #Group
  1931.   18    " Group"
  1932.  
  1933. Index: nls/C/C/C/s_answer.m
  1934. *** ../elm2.4/nls/C/C/C/s_answer.m    Tue Jan 19 22:36:05 1993
  1935. --- nls/C/C/C/s_answer.m    Tue Aug 10 14:53:57 1993
  1936. ***************
  1937. *** 38,44 ****
  1938.   $ #EnterMessage
  1939.   18    \n\nEnter message for %s ending with a blank line.\n\n
  1940.   $ #ElmCommand
  1941. ! 19    ((%s -s "While You Were Out" %s ; %s %s) & ) < %s > /dev/null
  1942.   $ #CannotHaveMoreNames
  1943.   20    ** Can't have more than 'FirstName LastName' as address!\n
  1944.   $ #NotFoundForGroup
  1945. --- 38,44 ----
  1946.   $ #EnterMessage
  1947.   18    \n\nEnter message for %s ending with a blank line.\n\n
  1948.   $ #ElmCommand
  1949. ! 19    ( ( %s -s "While You Were Out" %s < %s ; %s %s) & ) > /dev/null
  1950.   $ #CannotHaveMoreNames
  1951.   20    ** Can't have more than 'FirstName LastName' as address!\n
  1952.   $ #NotFoundForGroup
  1953.  
  1954. Index: nls/C/C/C/s_elm.m
  1955. *** ../elm2.4/nls/C/C/C/s_elm.m    Mon May 31 15:34:49 1993
  1956. --- nls/C/C/C/s_elm.m    Tue Aug  3 14:58:06 1993
  1957. ***************
  1958. *** 1000,1010 ****
  1959. --- 1000,1012 ----
  1960.   \t -dn\t\tDebug - set debug level to 'n'\n\r\
  1961.   \t -fx\t\tFolder - read folder 'x' rather than incoming mailbox\n\r\
  1962.   \t -h \t\tHelp - give this list of options\n\r\
  1963. + \t -ix\t\tInclude prepared file 'x' in edit buffer for send\n\r\
  1964.   \t -k \t\tKeypad - enable HP 2622 terminal keyboard\n\r
  1965.   $ #ArgsHelp2
  1966.   536    \t -K \t\tKeypad&softkeys - enable use of softkeys + "-k"\n\r\
  1967.   \t -m \t\tMenu - Turn off menu, using more of the screen\n\r\
  1968.   \t -sx\t\tSubject 'x' - for batch mailing\n\r\
  1969. + \t -t \t\tTiTe - don't use termcap/terminfo ti/te entries.\n\r\
  1970.   \t -V \t\tEnable sendmail voyeur mode.\n\r\
  1971.   \t -v \t\tPrint out ELM version information.\n\r\
  1972.   \t -z \t\tZero - don't enter ELM if no mail is pending\n\r\
  1973. ***************
  1974. *** 1066,1073 ****
  1975.   564    Too many weed headers! Out of memory!  Leaving...\n\r
  1976.   $ #NoMemDefaultWeed
  1977.   565    \nNot enough memory for default weedlist. Leaving.\n
  1978. ! $ #CantExpandEnvVar
  1979. ! 566    \n\rCan't expand environment variable '%s'.\n\r
  1980.   $ #CouldntMakeTempFileName
  1981.   567    Sorry - couldn't make file temp file name.
  1982.   $ #CouldntOpenForWriting
  1983. --- 1068,1075 ----
  1984.   564    Too many weed headers! Out of memory!  Leaving...\n\r
  1985.   $ #NoMemDefaultWeed
  1986.   565    \nNot enough memory for default weedlist. Leaving.\n
  1987. ! $ #CannotInitErrorExpanding
  1988. ! 566    \r\nCannot initialize "%s" - error expanding "%s".\r\n
  1989.   $ #CouldntMakeTempFileName
  1990.   567    Sorry - couldn't make file temp file name.
  1991.   $ #CouldntOpenForWriting
  1992.  
  1993. Index: nls/C/C/C/s_elmalias.m
  1994. *** ../elm2.4/nls/C/C/C/s_elmalias.m    Sun Apr 11 22:10:16 1993
  1995. --- nls/C/C/C/s_elmalias.m    Tue Aug 10 14:54:55 1993
  1996. ***************
  1997. *** 1,6 ****
  1998.   $set 4 #Elmalias
  1999.   $ #Usage
  2000. ! 1    usage: %s [-aenrsuvV] [-f format] [alias ...]\n
  2001.   $ #OutOfMemory
  2002.   2    %s: out of memory [could not allocate %d bytes]\n
  2003.   $ #CannotSpecifyExpand
  2004. --- 1,6 ----
  2005.   $set 4 #Elmalias
  2006.   $ #Usage
  2007. ! 1    usage: %s [-adenrsuvV] [-f format] [alias ...]\n
  2008.   $ #OutOfMemory
  2009.   2    %s: out of memory [could not allocate %d bytes]\n
  2010.   $ #CannotSpecifyExpand
  2011.  
  2012. Index: nls/C/C/C/s_filter.m
  2013. *** ../elm2.4/nls/C/C/C/s_filter.m    Mon Feb  8 13:35:25 1993
  2014. --- nls/C/C/C/s_filter.m    Tue Aug  3 15:07:36 1993
  2015. ***************
  2016. *** 29,35 ****
  2017.   $ #EndMesg
  2018.   14    \n-- End of filtered message --\n
  2019.   $ #CouldntCreateLockFile
  2020. ! 15    filter (%s): Couldn't create lock file %s\n
  2021.   $ #CantOpenMailBox
  2022.   16    filter (%s): Can't open mailbox %s!\n
  2023.   $ #SavedMessage
  2024. --- 29,35 ----
  2025.   $ #EndMesg
  2026.   14    \n-- End of filtered message --\n
  2027.   $ #CouldntCreateLockFile
  2028. ! 15    filter (%s): Couldn't create lock file\n
  2029.   $ #CantOpenMailBox
  2030.   16    filter (%s): Can't open mailbox %s!\n
  2031.   $ #SavedMessage
  2032.  
  2033. Index: nls/gencat/dumpmsg.c
  2034. *** ../elm2.4/nls/gencat/dumpmsg.c    Tue Oct  1 11:42:21 1991
  2035. --- nls/gencat/dumpmsg.c    Sun Aug 22 22:46:29 1993
  2036. ***************
  2037. *** 57,63 ****
  2038.   }
  2039.   
  2040.   void main(
  2041. ! #if defined(__STDC__) || defined(__cplusplus)
  2042.           int argc, char *argv[])
  2043.   #else
  2044.           argc, argv)
  2045. --- 57,63 ----
  2046.   }
  2047.   
  2048.   void main(
  2049. ! #if ANSI_C || defined(__cplusplus)
  2050.           int argc, char *argv[])
  2051.   #else
  2052.           argc, argv)
  2053.  
  2054. Index: nls/gencat/gencat.c
  2055. *** ../elm2.4/nls/gencat/gencat.c    Tue Jun 30 20:56:49 1992
  2056. --- nls/gencat/gencat.c    Sun Aug 22 22:46:29 1993
  2057. ***************
  2058. *** 65,82 ****
  2059.    * will be in C syntax, in bar.H in C++ syntax.
  2060.    */
  2061.   
  2062. ! static void writeIfChanged(
  2063. ! #if defined(__STDC__) || defined(__cplusplus)
  2064. !         char *fname, int lang, int orConsts
  2065.   #endif
  2066. ! );
  2067.   
  2068.   void usage() {
  2069. !     fprintf(stderr, "Use: gencat [-new] [-or] [-lang C|C++|ANSIC] catfile msgfile [-h <header-file>]...\n");
  2070.   }
  2071.   
  2072.   void main(
  2073. ! #if defined(__STDC__) || defined(__cplusplus)
  2074.           int argc, char *argv[])
  2075.   #else
  2076.           argc, argv)
  2077. --- 65,87 ----
  2078.    * will be in C syntax, in bar.H in C++ syntax.
  2079.    */
  2080.   
  2081. ! #if ANSI_C || defined(__cplusplus)
  2082. ! # define P_(x) x
  2083. ! #else
  2084. ! # define P_(x) /**/
  2085.   #endif
  2086. ! 
  2087. ! static void writeIfChanged P_((char *fname, int lang, int orConsts));
  2088. ! 
  2089. ! #undef P_
  2090.   
  2091.   void usage() {
  2092. !     fprintf(stderr, "Use: gencat [-new] [-or] [-lang C|C++|ANSIC]\n");
  2093. !     fprintf(stderr, "            catfile msgfile [-h <header-file>]...\n");
  2094.   }
  2095.   
  2096.   void main(
  2097. ! #if ANSI_C || defined(__cplusplus)
  2098.           int argc, char *argv[])
  2099.   #else
  2100.           argc, argv)
  2101. ***************
  2102. *** 164,170 ****
  2103.   }
  2104.   
  2105.   static void writeIfChanged(
  2106. ! #if defined(__STDC__) || defined(__cplusplus)
  2107.           char *fname, int lang, int orConsts)
  2108.   #else
  2109.           fname, lang, orConsts)
  2110. --- 169,175 ----
  2111.   }
  2112.   
  2113.   static void writeIfChanged(
  2114. ! #if ANSI_C || defined(__cplusplus)
  2115.           char *fname, int lang, int orConsts)
  2116.   #else
  2117.           fname, lang, orConsts)
  2118.  
  2119. Index: nls/gencat/gencat.h
  2120. *** ../elm2.4/nls/gencat/gencat.h    Mon Sep 23 15:47:46 1991
  2121. --- nls/gencat/gencat.h    Sun Aug 22 22:46:29 1993
  2122. ***************
  2123. *** 79,125 ****
  2124.   
  2125.   #define MAXTOKEN    1024
  2126.   
  2127. ! extern void MCAddSet(
  2128. ! #if defined(__STDC__) || defined(__cplusplus)
  2129. !         int setId, char *c
  2130.   #endif
  2131. !         );
  2132. ! extern void MCDelSet(
  2133. ! #if defined(__STDC__) || defined(__cplusplus)
  2134. !         int setId
  2135. ! #endif
  2136. !         );
  2137. ! extern void MCAddMsg(
  2138. ! #if defined(__STDC__) || defined(__cplusplus)
  2139. !         int msgId, char *msg, char *c
  2140. ! #endif
  2141. !         );
  2142. ! extern void MCDelMsg(
  2143. ! #if defined(__STDC__) || defined(__cplusplus)
  2144. !         int msgId
  2145. ! #endif
  2146. !         );
  2147. ! extern void MCParse(
  2148. ! #if defined(__STDC__) || defined(__cplusplus)
  2149. !         int fd
  2150. ! #endif
  2151. !         );
  2152. ! extern void MCReadCat(
  2153. ! #if defined(__STDC__) || defined(__cplusplus)
  2154. !         int fd
  2155. ! #endif
  2156. !         );
  2157. ! extern void MCWriteConst(
  2158. ! #if defined(__STDC__) || defined(__cplusplus)
  2159. !         int fd, int type, int orConsts
  2160. ! #endif
  2161. !         );
  2162. ! extern void MCWriteCat(
  2163. ! #if defined(__STDC__) || defined(__cplusplus)
  2164. !         int fd
  2165.   #endif
  2166. !         );
  2167. ! extern long MCGetByteOrder();
  2168.   
  2169.   #ifndef True
  2170.   # define True     ~0
  2171. --- 79,103 ----
  2172.   
  2173.   #define MAXTOKEN    1024
  2174.   
  2175. ! #if !defined(ANSI_C) && (defined(__STDC__) || defined(_AIX))
  2176. ! # define ANSI_C 1
  2177.   #endif
  2178. ! 
  2179. ! #if ANSI_C || defined(__cplusplus)
  2180. ! # define P_(x) x
  2181. ! #else
  2182. ! # define P_(x) /**/
  2183.   #endif
  2184. ! 
  2185. ! extern void MCAddSet P_((int setId, char *c));
  2186. ! extern void MCDelSet P_((int setId));
  2187. ! extern void MCAddMsg P_((int msgId, char *msg, char *c));
  2188. ! extern void MCDelMsg P_((int msgId));
  2189. ! extern void MCParse P_((int fd));
  2190. ! extern void MCReadCat P_((int fd));
  2191. ! extern void MCWriteConst P_((int fd, int type, int orConsts));
  2192. ! extern void MCWriteCat P_((int fd));
  2193. ! extern long MCGetByteOrder P_((void));
  2194.   
  2195.   #ifndef True
  2196.   # define True     ~0
  2197.  
  2198. Index: src/a_sort.c
  2199. Prereq: 5.4
  2200. *** ../elm2.4/src/a_sort.c    Sun Apr 11 21:10:15 1993
  2201. --- src/a_sort.c    Sat Jun 12 01:27:55 1993
  2202. ***************
  2203. *** 1,8 ****
  2204.   
  2205. ! static char rcsid[] = "@(#)$Id: a_sort.c,v 5.4 1993/04/12 01:10:15 syd Exp $";
  2206.   
  2207.   /*******************************************************************************
  2208. !  *  The Elm Mail System  -  $Revision: 5.4 $   $State: Exp $
  2209.    *
  2210.    *             Copyright (c) 1988-1992 USENET Community Trust
  2211.    *             Copyright (c) 1986,1987 Dave Taylor
  2212. --- 1,8 ----
  2213.   
  2214. ! static char rcsid[] = "@(#)$Id: a_sort.c,v 5.5 1993/06/12 05:27:44 syd Exp $";
  2215.   
  2216.   /*******************************************************************************
  2217. !  *  The Elm Mail System  -  $Revision: 5.5 $   $State: Exp $
  2218.    *
  2219.    *             Copyright (c) 1988-1992 USENET Community Trust
  2220.    *             Copyright (c) 1986,1987 Dave Taylor
  2221. ***************
  2222. *** 14,19 ****
  2223. --- 14,23 ----
  2224.    *
  2225.    *******************************************************************************
  2226.    * $Log: a_sort.c,v $
  2227. +  * Revision 5.5  1993/06/12  05:27:44  syd
  2228. +  * Fix calling sequence error
  2229. +  * From: Syd
  2230. +  *
  2231.    * Revision 5.4  1993/04/12  01:10:15  syd
  2232.    * fix @aliasname sort problem
  2233.    * From: "Robert L. Howard" <robert.howard@matd.gatech.edu>
  2234. ***************
  2235. *** 75,81 ****
  2236.   
  2237.       if ((entries > 30) && visible && are_in_aliases) {
  2238.           error1(catgets(elm_msg_cat, AliasesSet, AliasesSort,
  2239. !             "Sorting messages by %s..."), alias_sort_name(FULL));
  2240.       }
  2241.       
  2242.       if (entries > 1)
  2243. --- 79,85 ----
  2244.   
  2245.       if ((entries > 30) && visible && are_in_aliases) {
  2246.           error1(catgets(elm_msg_cat, AliasesSet, AliasesSort,
  2247. !             "Sorting aliases by %s..."), alias_sort_name(FULL));
  2248.       }
  2249.       
  2250.       if (entries > 1)
  2251.  
  2252. Index: src/addr_util.c
  2253. Prereq: 5.10
  2254. *** ../elm2.4/src/addr_util.c    Mon May 31 15:32:21 1993
  2255. --- src/addr_util.c    Tue Aug  3 15:28:59 1993
  2256. ***************
  2257. *** 1,8 ****
  2258.   
  2259. ! static char rcsid[] = "@(#)$Id: addr_util.c,v 5.10 1993/05/31 19:32:20 syd Exp $";
  2260.   
  2261.   /*******************************************************************************
  2262. !  *  The Elm Mail System  -  $Revision: 5.10 $   $State: Exp $
  2263.    *
  2264.    *             Copyright (c) 1988-1992 USENET Community Trust
  2265.    *             Copyright (c) 1986,1987 Dave Taylor
  2266. --- 1,8 ----
  2267.   
  2268. ! static char rcsid[] = "@(#)$Id: addr_util.c,v 5.11 1993/08/03 19:28:39 syd Exp $";
  2269.   
  2270.   /*******************************************************************************
  2271. !  *  The Elm Mail System  -  $Revision: 5.11 $   $State: Exp $
  2272.    *
  2273.    *             Copyright (c) 1988-1992 USENET Community Trust
  2274.    *             Copyright (c) 1986,1987 Dave Taylor
  2275. ***************
  2276. *** 14,19 ****
  2277. --- 14,31 ----
  2278.    *
  2279.    *******************************************************************************
  2280.    * $Log: addr_util.c,v $
  2281. +  * Revision 5.11  1993/08/03  19:28:39  syd
  2282. +  * Elm tries to replace the system toupper() and tolower() on current
  2283. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  2284. +  * collide during linking with routines in isctype.o.  This patch adds
  2285. +  * a Configure test to determine whether replacements are really needed
  2286. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  2287. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  2288. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  2289. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  2290. +  * were dropped.
  2291. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  2292. +  *
  2293.    * Revision 5.10  1993/05/31  19:32:20  syd
  2294.    * With this patch build_address() should treat local mailing
  2295.    * lists and other aliases known by the transport agent as valid
  2296. ***************
  2297. *** 80,92 ****
  2298.   #include "headers.h"
  2299.   #include "s_elm.h"
  2300.   
  2301. - #include <ctype.h>
  2302. - 
  2303. - #ifdef BSD 
  2304. - #undef tolower
  2305. - #undef toupper
  2306. - #endif
  2307. - 
  2308.   
  2309.   translate_return(addr, ret_addr)
  2310.   char *addr, *ret_addr;
  2311. --- 92,97 ----
  2312.  
  2313. Index: src/alias.c
  2314. Prereq: 5.34
  2315. *** ../elm2.4/src/alias.c    Thu May 13 23:57:37 1993
  2316. --- src/alias.c    Tue Aug  3 15:29:00 1993
  2317. ***************
  2318. *** 1,8 ****
  2319.   
  2320. ! static char rcsid[] = "@(#)$Id: alias.c,v 5.34 1993/05/14 03:57:36 syd Exp $";
  2321.   
  2322.   /*******************************************************************************
  2323. !  *  The Elm Mail System  -  $Revision: 5.34 $   $State: Exp $
  2324.    *
  2325.    *             Copyright (c) 1988-1992 USENET Community Trust
  2326.    *             Copyright (c) 1986,1987 Dave Taylor
  2327. --- 1,8 ----
  2328.   
  2329. ! static char rcsid[] = "@(#)$Id: alias.c,v 5.37 1993/08/03 19:28:39 syd Exp $";
  2330.   
  2331.   /*******************************************************************************
  2332. !  *  The Elm Mail System  -  $Revision: 5.37 $   $State: Exp $
  2333.    *
  2334.    *             Copyright (c) 1988-1992 USENET Community Trust
  2335.    *             Copyright (c) 1986,1987 Dave Taylor
  2336. ***************
  2337. *** 14,19 ****
  2338. --- 14,42 ----
  2339.    *
  2340.    *******************************************************************************
  2341.    * $Log: alias.c,v $
  2342. +  * Revision 5.37  1993/08/03  19:28:39  syd
  2343. +  * Elm tries to replace the system toupper() and tolower() on current
  2344. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  2345. +  * collide during linking with routines in isctype.o.  This patch adds
  2346. +  * a Configure test to determine whether replacements are really needed
  2347. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  2348. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  2349. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  2350. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  2351. +  * were dropped.
  2352. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  2353. +  *
  2354. +  * Revision 5.36  1993/06/12  05:27:44  syd
  2355. +  * Fix calling sequence error
  2356. +  * From: Syd
  2357. +  *
  2358. +  * Revision 5.35  1993/06/10  02:58:26  syd
  2359. +  * Correct problem in fetch_alias() with alias record fixup that caused
  2360. +  * core dump on machines with pointers larger than int.  This problem
  2361. +  * was reported on comp.mail.elm by Richard Eckman and Jim Brown.  Simplify
  2362. +  * get_one_alias() by having it use fetch_alias().
  2363. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  2364. +  *
  2365.    * Revision 5.34  1993/05/14  03:57:36  syd
  2366.    * A couple of calls to want_to() had typos. Here is the patch.
  2367.    * From: Jukka Ukkonen <ukkonen@csc.fi>
  2368. ***************
  2369. *** 230,244 ****
  2370.   #include "headers.h"
  2371.   #include "s_elm.h"
  2372.   #include <errno.h>
  2373. - #include <ctype.h>
  2374.   #include <sys/stat.h>
  2375.   #include "s_aliases.h"
  2376.   #include "ndbz.h"
  2377.   
  2378. - #ifdef BSD
  2379. - #undef        tolower
  2380. - #endif
  2381. - 
  2382.   #define    ECHOIT    1     /* echo on for prompting */
  2383.   
  2384.   /*
  2385. --- 253,262 ----
  2386. ***************
  2387. *** 984,990 ****
  2388.   
  2389.       main_state();        /* Save globals for return to main menu */
  2390.   
  2391. !     open_alias_files();    /* First, read the alias files. RLH */
  2392.   
  2393.       alias_screen(newaliases);
  2394.       define_softkeys(ALIAS);
  2395. --- 1002,1008 ----
  2396.   
  2397.       main_state();        /* Save globals for return to main menu */
  2398.   
  2399. !     open_alias_files(FALSE);    /* First, read the alias files. RLH */
  2400.   
  2401.       alias_screen(newaliases);
  2402.       define_softkeys(ALIAS);
  2403. ***************
  2404. *** 1305,1311 ****
  2405.             "Processed %d aliases.  Re-reading the database..."), na);
  2406.           if (sleepmsg > 0)
  2407.           sleep(sleepmsg);
  2408. !         open_alias_files();
  2409.           set_error(catgets(elm_msg_cat, AliasesSet, AliasesUpdatedOK,
  2410.             "Aliases updated successfully."));
  2411.       }
  2412. --- 1323,1329 ----
  2413.             "Processed %d aliases.  Re-reading the database..."), na);
  2414.           if (sleepmsg > 0)
  2415.           sleep(sleepmsg);
  2416. !         open_alias_files(TRUE);
  2417.           set_error(catgets(elm_msg_cat, AliasesSet, AliasesUpdatedOK,
  2418.             "Aliases updated successfully."));
  2419.       }
  2420. ***************
  2421. *** 1537,1610 ****
  2422.    *    Get an alias (name, address, etc.) from the data file
  2423.    */
  2424.   
  2425. !     long new_max;
  2426. !     register struct alias_rec    **new_aliases, *a;
  2427. !     struct alias_rec    ar;
  2428. !     FILE *data_file = db->dbz_basef;
  2429.   
  2430. !     if(read_one_alias(db, &ar) == 0) {
  2431. !         return(0);
  2432. !     }
  2433.   
  2434.       if (current >= max_aliases) {
  2435.           new_max = max_aliases + KLICK;
  2436. !         if (max_aliases == 0)
  2437. !         new_aliases = (struct alias_rec **)
  2438. !             malloc(new_max * sizeof(struct alias_rec *));
  2439. !         else
  2440. !         new_aliases = (struct alias_rec **)
  2441. !             realloc((char *) aliases,
  2442. !             new_max * sizeof(struct alias_rec *));
  2443. ! 
  2444. !         if (new_aliases == NULL) {
  2445. !         error1(catgets(elm_msg_cat, AliasesSet, AliasesErrorMemory,
  2446. !       "\n\r\n\rCouldn't allocate enough memory! Alias #%d.\n\r\n\r"),
  2447. !             current);
  2448. !         return(0);
  2449.           }
  2450. -         aliases = new_aliases;
  2451.           while (max_aliases < new_max)
  2452.           aliases[max_aliases++] = NULL;
  2453.       }
  2454.   
  2455. ! 
  2456. !     if (aliases[current] != NULL) {
  2457. !         free((char *) aliases[current]);
  2458. !         aliases[current] = NULL;
  2459. !     }
  2460. ! 
  2461. !     if ((a = (struct alias_rec *)
  2462. !         malloc(sizeof(ar) + ar.length)) == NULL) {
  2463. !         error1(catgets(elm_msg_cat, AliasesSet, AliasesErrorMemory,
  2464. !       "\n\r\n\rCouldn't allocate enough memory! Alias #%d.\n\r\n\r"),
  2465. !             current);
  2466. !         return(0);
  2467. !         }
  2468. ! 
  2469.       aliases[current] = a;
  2470. !     fread((char *) (a + 1), ar.length, 1, data_file);
  2471. !     *a = ar;
  2472. ! #ifdef CRAY
  2473. !     a->alias = (int) a->alias + (char *) (a + 1);
  2474. !     a->last_name = (int) a->last_name + (char *) (a + 1);
  2475. !     a->name = (int) a->name + (char *) (a + 1);
  2476. !     a->comment = (int) a->comment + (char *) (a + 1);
  2477. !     a->address = (int) a->address + (char *) (a + 1);
  2478. ! #else
  2479. !     new_max = (long) (a + 1);
  2480. ! 
  2481. !     a->alias += new_max;
  2482. !     a->last_name += new_max;
  2483. !     a->name += new_max;
  2484. !     a->comment += new_max;
  2485. !     a->address += new_max;
  2486. ! #endif
  2487. !     a->length = current;   
  2488. !   
  2489. ! 
  2490. !     return(1);
  2491.   }
  2492.   
  2493.   main_state()
  2494.   {
  2495.   /*    Save the globals that are shared for both menus
  2496. --- 1555,1587 ----
  2497.    *    Get an alias (name, address, etc.) from the data file
  2498.    */
  2499.   
  2500. !     int new_max;
  2501. !     register struct alias_rec *a;
  2502. !     extern struct alias_rec *fetch_alias();
  2503.   
  2504. !     if ((a = fetch_alias(db, (char *)NULL)) == NULL)
  2505. !         return 0;
  2506.   
  2507.       if (current >= max_aliases) {
  2508.           new_max = max_aliases + KLICK;
  2509. !         if (max_aliases == 0) {
  2510. !         aliases = (struct alias_rec **)
  2511. !             safe_malloc(new_max * sizeof(struct alias_rec *));
  2512. !         } else {
  2513. !         aliases = (struct alias_rec **) safe_realloc((malloc_t)aliases,
  2514. !             new_max * sizeof(struct alias_rec *));
  2515.           }
  2516.           while (max_aliases < new_max)
  2517.           aliases[max_aliases++] = NULL;
  2518.       }
  2519.   
  2520. !     if (aliases[current] != NULL)
  2521. !         free((malloc_t)aliases[current]);
  2522.       aliases[current] = a;
  2523. !     return 1;
  2524.   }
  2525.   
  2526. + 
  2527.   main_state()
  2528.   {
  2529.   /*    Save the globals that are shared for both menus
  2530.  
  2531. Index: src/aliaslib.c
  2532. Prereq: 5.9
  2533. *** ../elm2.4/src/aliaslib.c    Mon May 31 15:39:44 1993
  2534. --- src/aliaslib.c    Tue Aug  3 15:29:01 1993
  2535. ***************
  2536. *** 1,8 ****
  2537.   
  2538. ! static char rcsid[] = "@(#)$Id: aliaslib.c,v 5.9 1993/05/31 19:39:43 syd Exp $";
  2539.   
  2540.   /*******************************************************************************
  2541. !  *  The Elm Mail System  -  $Revision: 5.9 $   $State: Exp $
  2542.    *
  2543.    *             Copyright (c) 1988-1992 USENET Community Trust
  2544.    *             Copyright (c) 1986,1987 Dave Taylor
  2545. --- 1,8 ----
  2546.   
  2547. ! static char rcsid[] = "@(#)$Id: aliaslib.c,v 5.10 1993/08/03 19:28:39 syd Exp $";
  2548.   
  2549.   /*******************************************************************************
  2550. !  *  The Elm Mail System  -  $Revision: 5.10 $   $State: Exp $
  2551.    *
  2552.    *             Copyright (c) 1988-1992 USENET Community Trust
  2553.    *             Copyright (c) 1986,1987 Dave Taylor
  2554. ***************
  2555. *** 14,19 ****
  2556. --- 14,31 ----
  2557.    *
  2558.    *******************************************************************************
  2559.    * $Log: aliaslib.c,v $
  2560. +  * Revision 5.10  1993/08/03  19:28:39  syd
  2561. +  * Elm tries to replace the system toupper() and tolower() on current
  2562. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  2563. +  * collide during linking with routines in isctype.o.  This patch adds
  2564. +  * a Configure test to determine whether replacements are really needed
  2565. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  2566. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  2567. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  2568. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  2569. +  * were dropped.
  2570. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  2571. +  *
  2572.    * Revision 5.9  1993/05/31  19:39:43  syd
  2573.    * Elm either failed to expand a group alias or crashed in strlen
  2574.    * (called from do_expand_group()).
  2575. ***************
  2576. *** 70,76 ****
  2577.   
  2578.   #include "headers.h"
  2579.   #include "s_elm.h"
  2580. - #include <ctype.h>
  2581.   
  2582.   char *get_alias_address(), *qstrpbrk();
  2583.   extern int current_mail_message;
  2584. --- 82,87 ----
  2585.  
  2586. Index: src/builtin.c
  2587. Prereq: 5.1
  2588. *** ../elm2.4/src/builtin.c    Sat Oct  3 18:58:47 1992
  2589. --- src/builtin.c    Tue Aug  3 15:29:01 1993
  2590. ***************
  2591. *** 1,8 ****
  2592.   
  2593. ! static char rcsid[] = "@(#)$Id: builtin.c,v 5.1 1992/10/03 22:58:40 syd Exp $";
  2594.   
  2595.   /*******************************************************************************
  2596. !  *  The Elm Mail System  -  $Revision: 5.1 $   $State: Exp $
  2597.    *
  2598.    *             Copyright (c) 1988-1992 USENET Community Trust
  2599.    *             Copyright (c) 1986,1987 Dave Taylor
  2600. --- 1,8 ----
  2601.   
  2602. ! static char rcsid[] = "@(#)$Id: builtin.c,v 5.2 1993/08/03 19:28:39 syd Exp $";
  2603.   
  2604.   /*******************************************************************************
  2605. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  2606.    *
  2607.    *             Copyright (c) 1988-1992 USENET Community Trust
  2608.    *             Copyright (c) 1986,1987 Dave Taylor
  2609. ***************
  2610. *** 14,19 ****
  2611. --- 14,31 ----
  2612.    *
  2613.    *******************************************************************************
  2614.    * $Log: builtin.c,v $
  2615. +  * Revision 5.2  1993/08/03  19:28:39  syd
  2616. +  * Elm tries to replace the system toupper() and tolower() on current
  2617. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  2618. +  * collide during linking with routines in isctype.o.  This patch adds
  2619. +  * a Configure test to determine whether replacements are really needed
  2620. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  2621. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  2622. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  2623. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  2624. +  * were dropped.
  2625. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  2626. +  *
  2627.    * Revision 5.1  1992/10/03  22:58:40  syd
  2628.    * Initial checkin as of 2.4 Release at PL0
  2629.    *
  2630. ***************
  2631. *** 32,38 ****
  2632.   
  2633.   #include "headers.h"
  2634.   #include "s_elm.h"
  2635. - #include <ctype.h>
  2636.   
  2637.   #define  BEEP        007        /* ASCII Bell character */
  2638.   
  2639. --- 44,49 ----
  2640.  
  2641.